home *** CD-ROM | disk | FTP | other *** search
MacBinary | 1989-10-01 | 14.1 KB | [ TEXT/MPS ]
open in: MacOS 8.1
extracted
|
Win98
extracted
|
DOS
extracted
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary ).
Confidence Program Detection Match Type Support
66%
dexvert
ZX81 Sinclair BASIC (image/sinclairBASIC)
ext
Supported
10%
dexvert
MacBinary (archive/macBinary)
fallback
Supported
1%
dexvert
Text File (text/txt)
fallback
Supported
100%
file
MacBinary II, inited, Sun Oct 1 00:00:00 1989, modified Sun Oct 1 00:00:00 1989, creator 'MPS ', type ASCII, 13849 bytes "UApplication.inc1.p" , at 0x3699 362 bytes resource
default (weak)
99%
file
data
default
74%
TrID
Macintosh plain text (MacBinary)
default
25%
TrID
MacBinary 2
default (weak)
100%
siegfried
fmt/1762 MacBinary (II)
default
100%
lsar
MacBinary
default
id metadata key value macFileType [ TEXT] macFileCreator [ MPS ]
hex view +--------+-------------------------+-------------------------+--------+--------+ |00000000| 00 13 55 41 70 70 6c 69 | 63 61 74 69 6f 6e 2e 69 |..UAppli|cation.i| |00000010| 6e 63 31 2e 70 00 00 00 | 00 00 00 00 00 00 00 00 |nc1.p...|........| |00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......| |00000050| 00 00 00 00 00 36 19 00 | 00 01 6a a1 4b 3c 40 a1 |.....6..|..j.K<@.| |00000060| 4b 3c 40 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K<@.....|........| |00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 2b f9 00 00 |........|....+...| |00000080| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------| |00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000000c0| 2d 2d 2d 2d 2d 2d 0d 23 | 0d 23 09 41 70 70 6c 65 |------.#|.#.Apple| |000000d0| 20 4d 61 63 69 6e 74 6f | 73 68 20 44 65 76 65 6c | Macinto|sh Devel| |000000e0| 6f 70 65 72 20 54 65 63 | 68 6e 69 63 61 6c 20 53 |oper Tec|hnical S| |000000f0| 75 70 70 6f 72 74 0d 23 | 0d 23 09 4d 75 6c 74 69 |upport.#|.#.Multi| |00000100| 46 69 6e 64 65 72 2d 41 | 77 61 72 65 20 53 69 6d |Finder-A|ware Sim| |00000110| 70 6c 65 20 54 65 78 74 | 45 64 69 74 20 53 61 6d |ple Text|Edit Sam| |00000120| 70 6c 65 20 41 70 70 6c | 69 63 61 74 69 6f 6e 0d |ple Appl|ication.| |00000130| 23 0d 23 09 4f 4f 50 54 | 45 53 61 6d 70 6c 65 0d |#.#.OOPT|ESample.| |00000140| 23 0d 23 09 55 41 70 70 | 6c 69 63 61 74 69 6f 6e |#.#.UApp|lication| |00000150| 2e 69 6e 63 31 2e 70 09 | 09 2d 09 50 61 73 63 61 |.inc1.p.|.-.Pasca| |00000160| 6c 20 53 6f 75 72 63 65 | 0d 23 0d 23 09 43 6f 70 |l Source|.#.#.Cop| |00000170| 79 72 69 67 68 74 20 a9 | 20 31 39 38 38 2c 20 31 |yright .| 1988, 1| |00000180| 39 38 39 20 41 70 70 6c | 65 20 43 6f 6d 70 75 74 |989 Appl|e Comput| |00000190| 65 72 2c 20 49 6e 63 2e | 0d 23 09 41 6c 6c 20 72 |er, Inc.|.#.All r| |000001a0| 69 67 68 74 73 20 72 65 | 73 65 72 76 65 64 2e 0d |ights re|served..| |000001b0| 23 0d 23 09 56 65 72 73 | 69 6f 6e 3a 09 09 0d 23 |#.#.Vers|ion:...#| |000001c0| 09 09 09 09 09 31 2e 31 | 30 09 09 09 09 09 31 30 |.....1.1|0.....10| |000001d0| 2f 38 39 0d 23 09 09 09 | 09 09 31 2e 30 30 09 09 |/89.#...|..1.00..| |000001e0| 09 09 09 30 34 2f 38 39 | 0d 23 0d 23 09 43 6f 6d |...04/89|.#.#.Com| |000001f0| 70 6f 6e 65 6e 74 73 3a | 20 20 20 20 20 0d 23 09 |ponents:| .#.| |00000200| 09 09 09 09 42 75 69 6c | 64 4f 4f 50 54 45 53 61 |....Buil|dOOPTESa| |00000210| 6d 70 6c 65 09 09 4f 63 | 74 6f 62 65 72 20 31 2c |mple..Oc|tober 1,| |00000220| 20 31 39 38 39 0d 23 09 | 09 09 09 09 4d 4f 4f 50 | 1989.#.|....MOOP| |00000230| 54 45 53 61 6d 70 6c 65 | 2e 70 09 09 09 4f 63 74 |TESample|.p...Oct| |00000240| 6f 62 65 72 20 31 2c 20 | 31 39 38 39 0d 23 09 09 |ober 1, |1989.#..| |00000250| 09 09 09 4f 4f 50 54 45 | 53 61 6d 70 6c 65 2e 6d |...OOPTE|Sample.m| |00000260| 61 6b 65 09 09 4f 63 74 | 6f 62 65 72 20 31 2c 20 |ake..Oct|ober 1, | |00000270| 31 39 38 39 0d 23 09 09 | 09 09 09 54 45 43 6f 6d |1989.#..|...TECom| |00000280| 6d 6f 6e 2e 68 09 09 09 | 09 4f 63 74 6f 62 65 72 |mon.h...|.October| |00000290| 20 31 2c 20 31 39 38 39 | 0d 23 09 09 09 09 09 54 | 1, 1989|.#.....T| |000002a0| 45 53 61 6d 70 6c 65 47 | 6c 75 65 2e 61 09 09 09 |ESampleG|lue.a...| |000002b0| 4f 63 74 6f 62 65 72 20 | 31 2c 20 31 39 38 39 0d |October |1, 1989.| |000002c0| 23 09 09 09 09 09 54 45 | 53 61 6d 70 6c 65 2e 72 |#.....TE|Sample.r| |000002d0| 09 09 09 09 4f 63 74 6f | 62 65 72 20 31 2c 20 31 |....Octo|ber 1, 1| |000002e0| 39 38 39 0d 23 09 09 09 | 09 09 55 41 70 70 6c 69 |989.#...|..UAppli| |000002f0| 63 61 74 69 6f 6e 2e 70 | 09 09 09 4f 63 74 6f 62 |cation.p|...Octob| |00000300| 65 72 20 31 2c 20 31 39 | 38 39 0d 23 09 09 09 09 |er 1, 19|89.#....| |00000310| 09 55 41 70 70 6c 69 63 | 61 74 69 6f 6e 2e 69 6e |.UApplic|ation.in| |00000320| 63 31 2e 70 09 09 4f 63 | 74 6f 62 65 72 20 31 2c |c1.p..Oc|tober 1,| |00000330| 20 31 39 38 39 0d 23 09 | 09 09 09 09 55 44 6f 63 | 1989.#.|....UDoc| |00000340| 75 6d 65 6e 74 2e 70 09 | 09 09 09 4f 63 74 6f 62 |ument.p.|...Octob| |00000350| 65 72 20 31 2c 20 31 39 | 38 39 0d 23 09 09 09 09 |er 1, 19|89.#....| |00000360| 09 55 44 6f 63 75 6d 65 | 6e 74 2e 69 6e 63 31 2e |.UDocume|nt.inc1.| |00000370| 70 09 09 4f 63 74 6f 62 | 65 72 20 31 2c 20 31 39 |p..Octob|er 1, 19| |00000380| 38 39 0d 23 09 09 09 09 | 09 55 54 45 44 6f 63 75 |89.#....|.UTEDocu| |00000390| 6d 65 6e 74 2e 70 09 09 | 09 4f 63 74 6f 62 65 72 |ment.p..|.October| |000003a0| 20 31 2c 20 31 39 38 39 | 0d 23 09 09 09 09 09 55 | 1, 1989|.#.....U| |000003b0| 54 45 44 6f 63 75 6d 65 | 6e 74 2e 69 6e 63 31 2e |TEDocume|nt.inc1.| |000003c0| 70 09 09 4f 63 74 6f 62 | 65 72 20 31 2c 20 31 39 |p..Octob|er 1, 19| |000003d0| 38 39 0d 23 09 09 09 09 | 09 55 54 45 53 61 6d 70 |89.#....|.UTESamp| |000003e0| 6c 65 2e 70 09 09 09 09 | 4f 63 74 6f 62 65 72 20 |le.p....|October | |000003f0| 31 2c 20 31 39 38 39 0d | 23 09 09 09 09 09 55 54 |1, 1989.|#.....UT| |00000400| 45 53 61 6d 70 6c 65 2e | 69 6e 63 31 2e 70 09 09 |ESample.|inc1.p..| |00000410| 4f 63 74 6f 62 65 72 20 | 31 2c 20 31 39 38 39 0d |October |1, 1989.| |00000420| 23 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |#.------|--------| |00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000460| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 0d 43 4f 4e 53 54 0d |-------}|..CONST.| |00000470| 09 6b 4f 53 45 76 65 6e | 74 09 09 09 09 3d 20 61 |.kOSEven|t....= a| |00000480| 70 70 34 45 76 74 3b 09 | 7b 20 45 76 65 6e 74 20 |pp4Evt;.|{ Event | |00000490| 75 73 65 64 20 62 79 20 | 4d 75 6c 74 69 46 69 6e |used by |MultiFin| |000004a0| 64 65 72 20 7d 0d 09 6b | 53 75 73 70 65 6e 64 52 |der }..k|SuspendR| |000004b0| 65 73 75 6d 65 4d 65 73 | 73 61 67 65 09 3d 20 24 |esumeMes|sage.= $| |000004c0| 30 31 3b 09 09 7b 20 68 | 69 67 68 20 62 79 74 65 |01;..{ h|igh byte| |000004d0| 20 6f 66 20 73 75 73 70 | 65 6e 64 2f 72 65 73 75 | of susp|end/resu| |000004e0| 6d 65 20 65 76 65 6e 74 | 20 6d 65 73 73 61 67 65 |me event| message| |000004f0| 20 7d 0d 09 6b 43 6c 69 | 70 43 6f 6e 76 65 72 74 | }..kCli|pConvert| |00000500| 4d 61 73 6b 09 09 3d 20 | 24 30 32 3b 09 09 7b 20 |Mask..= |$02;..{ | |00000510| 62 69 74 20 6f 66 20 6d | 65 73 73 61 67 65 20 66 |bit of m|essage f| |00000520| 69 65 6c 64 20 63 6c 69 | 70 20 63 6f 6e 76 65 72 |ield cli|p conver| |00000530| 73 69 6f 6e 20 7d 0d 09 | 6b 52 65 73 75 6d 65 4d |sion }..|kResumeM| |00000540| 61 73 6b 09 09 09 09 3d | 20 24 30 31 3b 09 09 7b |ask....=| $01;..{| |00000550| 20 62 69 74 20 6f 66 20 | 6d 65 73 73 61 67 65 20 | bit of |message | |00000560| 66 69 65 6c 64 20 66 6f | 72 20 72 65 73 75 6d 65 |field fo|r resume| |00000570| 20 76 73 2e 20 73 75 73 | 70 65 6e 64 20 7d 0d 09 | vs. sus|pend }..| |00000580| 6b 4d 6f 75 73 65 4d 6f | 76 65 64 4d 65 73 73 61 |kMouseMo|vedMessa| |00000590| 67 65 09 09 3d 20 24 46 | 41 3b 09 09 7b 20 68 69 |ge..= $F|A;..{ hi| |000005a0| 67 68 20 62 79 74 65 20 | 6f 66 20 6d 6f 75 73 65 |gh byte |of mouse| |000005b0| 2d 6d 6f 76 65 64 20 65 | 76 65 6e 74 20 6d 65 73 |-moved e|vent mes| |000005c0| 73 61 67 65 20 7d 0d 09 | 0d 09 6b 45 72 72 53 74 |sage }..|..kErrSt| |000005d0| 72 69 6e 67 73 09 09 09 | 09 3d 20 31 32 38 3b 0d |rings...|.= 128;.| |000005e0| 09 72 55 73 65 72 41 6c | 65 72 74 09 09 09 09 3d |.rUserAl|ert....=| |000005f0| 20 31 32 39 3b 0d 09 0d | 09 65 57 72 6f 6e 67 4d | 129;...|.eWrongM| |00000600| 61 63 68 69 6e 65 09 09 | 09 3d 20 31 3b 0d 09 65 |achine..|.= 1;..e| |00000610| 53 6d 61 6c 6c 53 69 7a | 65 09 09 09 09 3d 20 32 |SmallSiz|e....= 2| |00000620| 3b 0d 0d 0d 28 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;...(***|********| |00000630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000650| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000660| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000680| 2a 29 0d 28 2a 09 09 55 | 20 74 20 69 20 6c 20 69 |*).(*..U| t i l i| |00000690| 20 74 20 79 20 20 20 72 | 20 6f 20 75 20 74 20 69 | t y r| o u t i| |000006a0| 20 6e 20 65 20 73 09 09 | 09 09 09 09 09 09 09 09 | n e s..|........| |000006b0| 09 09 09 09 2a 29 0d 28 | 2a 2a 2a 2a 2a 2a 2a 2a |....*).(|********| |000006c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |000006d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |000006e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |000006f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000710| 2a 2a 2a 2a 29 0d 0d 7b | 54 68 69 73 20 72 6f 75 |****)..{|This rou| |00000720| 74 69 6e 65 20 69 73 20 | 70 61 72 74 20 6f 66 20 |tine is |part of | |00000730| 74 68 65 20 4d 50 57 20 | 72 75 6e 74 69 6d 65 20 |the MPW |runtime | |00000740| 6c 69 62 72 61 72 79 2e | 20 54 68 69 73 20 65 78 |library.| This ex| |00000750| 74 65 72 6e 61 6c 0d 20 | 72 65 66 65 72 65 6e 63 |ternal. |referenc| |00000760| 65 20 74 6f 20 69 74 20 | 69 73 20 64 6f 6e 65 20 |e to it |is done | |00000770| 73 6f 20 74 68 61 74 20 | 77 65 20 63 61 6e 20 75 |so that |we can u| |00000780| 6e 6c 6f 61 64 20 69 74 | 73 20 73 65 67 6d 65 6e |nload it|s segmen| |00000790| 74 2c 20 25 41 35 49 6e | 69 74 2e 7d 0d 0d 50 52 |t, %A5In|it.}..PR| |000007a0| 4f 43 45 44 55 52 45 20 | 5f 44 61 74 61 49 6e 69 |OCEDURE |_DataIni| |000007b0| 74 3b 0d 09 45 58 54 45 | 52 4e 41 4c 3b 0d 0d 7b |t;..EXTE|RNAL;..{| |000007c0| 24 53 20 4d 61 69 6e 7d | 0d 7b 2d 2d 2d 2d 2d 2d |$S Main}|.{------| |000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2b 0d 7c |--------|-----+.|| |000007f0| 09 41 6c 65 72 74 55 73 | 65 72 09 09 09 09 09 09 |.AlertUs|er......| |00000800| 7c 0d 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d ||.+-----|--------| |00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000820| 2d 2d 2d 2d 2d 2d 7d 0d | 7b 20 44 69 73 70 6c 61 |------}.|{ Displa| |00000830| 79 20 61 6c 65 72 74 2c | 20 75 73 69 6e 67 20 73 |y alert,| using s| |00000840| 70 65 63 69 66 69 65 64 | 20 65 72 72 6f 72 20 53 |pecified| error S| |00000850| 54 52 23 20 72 65 73 6f | 75 72 63 65 20 61 6e 64 |TR# reso|urce and| |00000860| 20 65 72 72 6f 72 20 63 | 6f 64 65 20 61 73 20 69 | error c|ode as i| |00000870| 6e 64 65 78 20 7d 0d 50 | 52 4f 43 45 44 55 52 45 |ndex }.P|ROCEDURE| |00000880| 20 41 6c 65 72 74 55 73 | 65 72 28 65 72 72 52 65 | AlertUs|er(errRe| |00000890| 73 49 44 3a 69 6e 74 65 | 67 65 72 3b 20 65 72 72 |sID:inte|ger; err| |000008a0| 43 6f 64 65 3a 69 6e 74 | 65 67 65 72 29 3b 0d 56 |Code:int|eger);.V| |000008b0| 41 52 0d 09 6d 65 73 73 | 61 67 65 3a 20 53 74 72 |AR..mess|age: Str| |000008c0| 32 35 35 3b 0d 09 64 75 | 6d 6d 79 3a 20 69 6e 74 |255;..du|mmy: int| |000008d0| 65 67 65 72 3b 0d 42 45 | 47 49 4e 0d 09 53 65 74 |eger;.BE|GIN..Set| |000008e0| 43 75 72 73 6f 72 28 61 | 72 72 6f 77 29 3b 0d 09 |Cursor(a|rrow);..| |000008f0| 47 65 74 49 6e 64 53 74 | 72 69 6e 67 28 6d 65 73 |GetIndSt|ring(mes| |00000900| 73 61 67 65 2c 20 65 72 | 72 52 65 73 49 44 2c 20 |sage, er|rResID, | |00000910| 65 72 72 43 6f 64 65 29 | 3b 0d 09 50 61 72 61 6d |errCode)|;..Param| |00000920| 54 65 78 74 28 6d 65 73 | 73 61 67 65 2c 20 27 27 |Text(mes|sage, ''| |00000930| 2c 20 27 27 2c 20 27 27 | 29 3b 0d 09 64 75 6d 6d |, '', ''|);..dumm| |00000940| 79 20 3a 3d 20 41 6c 65 | 72 74 28 72 55 73 65 72 |y := Ale|rt(rUser| |00000950| 41 6c 65 72 74 2c 20 4e | 49 4c 29 3b 0d 45 4e 44 |Alert, N|IL);.END| |00000960| 3b 0d 0d 7b 24 53 20 4d | 61 69 6e 7d 0d 7b 2d 2d |;..{$S M|ain}.{--| |00000970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000990| 2d 2b 0d 7c 09 42 69 67 | 42 61 64 45 72 72 6f 72 |-+.|.Big|BadError| |000009a0| 09 09 09 09 09 09 7c 0d | 2b 2d 2d 2d 2d 2d 2d 2d |......|.|+-------| |000009b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 7b 20 |--------|----}.{ | |000009d0| 63 61 6c 6c 20 41 6c 65 | 72 74 55 73 65 72 20 74 |call Ale|rtUser t| |000009e0| 6f 20 64 69 73 70 6c 61 | 79 20 65 72 72 6f 72 20 |o displa|y error | |000009f0| 6d 65 73 73 61 67 65 2c | 20 74 68 65 6e 20 71 75 |message,| then qu| |00000a00| 69 74 2e 2e 2e 20 7d 0d | 50 52 4f 43 45 44 55 52 |it... }.|PROCEDUR| |00000a10| 45 20 42 69 67 42 61 64 | 45 72 72 6f 72 28 65 72 |E BigBad|Error(er| |00000a20| 72 52 65 73 49 44 3a 69 | 6e 74 65 67 65 72 3b 20 |rResID:i|nteger; | |00000a30| 65 72 72 43 6f 64 65 3a | 20 69 6e 74 65 67 65 72 |errCode:| integer| |00000a40| 29 3b 0d 42 45 47 49 4e | 0d 09 41 6c 65 72 74 55 |);.BEGIN|..AlertU| |00000a50| 73 65 72 28 65 72 72 52 | 65 73 49 44 2c 65 72 72 |ser(errR|esID,err| |00000a60| 43 6f 64 65 29 3b 0d 09 | 45 78 69 74 54 6f 53 68 |Code);..|ExitToSh| |00000a70| 65 6c 6c 3b 0d 45 4e 44 | 3b 0d 0d 7b 24 53 20 49 |ell;.END|;..{$S I| |00000a80| 6e 69 74 69 61 6c 69 7a | 65 7d 0d 50 52 4f 43 45 |nitializ|e}.PROCE| |00000a90| 44 55 52 45 20 49 6e 69 | 74 53 65 67 3b 0d 42 45 |DURE Ini|tSeg;.BE| |00000aa0| 47 49 4e 0d 45 4e 44 3b | 0d 0d 28 2a 2a 2a 2a 2a |GIN.END;|..(*****| |00000ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000b00| 2a 2a 2a 2a 2a 2a 2a 29 | 0d 28 2a 09 09 54 20 41 |*******)|.(*..T A| |00000b10| 20 70 20 70 20 6c 20 69 | 20 63 20 61 20 74 20 69 | p p l i| c a t i| |00000b20| 20 6f 20 6e 09 09 09 09 | 09 09 09 09 09 09 09 09 | o n....|........| |00000b30| 09 09 09 09 2a 29 0d 28 | 2a 2a 2a 2a 2a 2a 2a 2a |....*).(|********| |00000b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********| |00000b90| 2a 2a 2a 2a 29 0d 7b 24 | 53 20 49 6e 69 74 69 61 |****).{$|S Initia| |00000ba0| 6c 69 7a 65 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |lize}.{-|--------| |00000bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 49 41 |--------|--+.|.IA| |00000bd0| 70 70 6c 69 63 61 74 69 | 6f 6e 09 09 09 09 09 7c |pplicati|on.....|| |00000be0| 0d 2b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.+------|--------| |00000bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00000c00| 2d 2d 2d 2d 2d 7d 0d 50 | 52 4f 43 45 44 55 52 45 |-----}.P|ROCEDURE| |00000c10| 20 54 41 70 70 6c 69 63 | 61 74 69 6f 6e 2e 49 41 | TApplic|ation.IA| |00000c20| 70 70 6c 69 63 61 74 69 | 6f 6e 3b 0d 0d 56 41 52 |pplicati|on;..VAR| |00000c30| 0d 09 65 6e 76 52 65 63 | 3a 20 73 79 73 45 6e 76 |..envRec|: sysEnv| |00000c40| 52 65 63 3b 0d 09 73 74 | 6b 4e 65 65 64 65 64 2c |Rec;..st|kNeeded,| |00000c50| 20 68 65 61 70 53 69 7a | 65 3a 20 6c 6f 6e 67 69 | heapSiz|e: longi| |00000c60| 6e 74 3b 0d 09 64 75 6d | 6d 79 3a 20 4f 53 45 72 |nt;..dum|my: OSEr| |00000c70| 72 3b 0d 0d 42 45 47 49 | 4e 0d 09 7b 20 69 6e 69 |r;..BEGI|N..{ ini| |00000c80| 74 69 61 6c 69 7a 65 20 | 4d 61 63 20 54 6f 6f 6c |tialize |Mac Tool| |00000c90| 62 6f 78 20 63 6f 6d 70 | 6f 6e 65 6e 74 73 20 7d |box comp|onents }| |00000ca0| 0d 09 49 6e 69 74 47 72 | 61 66 28 40 74 68 65 50 |..InitGr|af(@theP| |00000cb0| 6f 72 74 29 3b 0d 09 49 | 6e 69 74 46 6f 6e 74 73 |ort);..I|nitFonts| |00000cc0| 3b 0d 09 49 6e 69 74 57 | 69 6e 64 6f 77 73 3b 0d |;..InitW|indows;.| |00000cd0| 09 49 6e 69 74 4d 65 6e | 75 73 3b 0d 09 54 45 49 |.InitMen|us;..TEI| |00000ce0| 6e 69 74 3b 0d 09 49 6e | 69 74 44 69 61 6c 6f 67 |nit;..In|itDialog| |00000cf0| 73 28 4e 49 4c 29 3b 0d | 09 49 6e 69 74 43 75 72 |s(NIL);.|.InitCur| |00000d00| 73 6f 72 3b 0d 0d 09 7b | 20 55 6e 6c 6f 61 64 20 |sor;...{| Unload | |00000d10| 64 61 74 61 20 73 65 67 | 6d 65 6e 74 3a 20 6e 6f |data seg|ment: no| |00000d20| 74 65 20 74 68 61 74 20 | 5f 44 61 74 61 49 6e 69 |te that |_DataIni| |00000d30| 74 20 6d 75 73 74 20 6e | 6f 74 20 62 65 20 69 6e |t must n|ot be in| |00000d40| 20 4d 61 69 6e 21 20 7d | 0d 09 55 6e 6c 6f 61 64 | Main! }|..Unload| |00000d50| 53 65 67 28 40 5f 44 61 | 74 61 49 6e 69 74 29 3b |Seg(@_Da|taInit);| |00000d60| 0d 0d 09 7b 20 49 67 6e | 6f 72 65 20 74 68 65 20 |...{ Ign|ore the | |00000d70| 65 72 72 6f 72 20 72 65 | 74 75 72 6e 65 64 20 66 |error re|turned f| |00000d80| 72 6f 6d 20 53 79 73 45 | 6e 76 69 72 6f 6e 73 3b |rom SysE|nvirons;| |00000d90| 20 65 76 65 6e 20 69 66 | 20 61 6e 20 65 72 72 6f | even if| an erro| |00000da0| 72 20 6f 63 63 75 72 72 | 65 64 2c 20 7d 0d 09 7b |r occurr|ed, }..{| |00000db0| 20 74 68 65 20 53 79 73 | 45 6e 76 69 72 6f 6e 73 | the Sys|Environs| |00000dc0| 20 67 6c 75 65 20 77 69 | 6c 6c 20 66 69 6c 6c 20 | glue wi|ll fill | |00000dd0| 69 6e 20 74 68 65 20 53 | 79 73 45 6e 76 52 65 63 |in the S|ysEnvRec| |00000de0| 20 7d 0d 09 64 75 6d 6d | 79 20 3a 3d 20 53 79 73 | }..dumm|y := Sys| |00000df0| 45 6e 76 69 72 6f 6e 73 | 28 63 75 72 53 79 73 45 |Environs|(curSysE| |00000e00| 6e 76 56 65 72 73 2c 20 | 65 6e 76 52 65 63 29 3b |nvVers, |envRec);| |00000e10| 0d 0d 09 7b 20 41 72 65 | 20 77 65 20 72 75 6e 6e |...{ Are| we runn| |00000e20| 69 6e 67 20 6f 6e 20 61 | 20 31 32 38 4b 20 52 4f |ing on a| 128K RO| |00000e30| 4d 20 6d 61 63 68 69 6e | 65 20 6f 72 20 62 65 74 |M machin|e or bet| |00000e40| 74 65 72 3f 3f 3f 20 7d | 0d 09 49 46 20 28 65 6e |ter??? }|..IF (en| |00000e50| 76 52 65 63 2e 6d 61 63 | 68 69 6e 65 54 79 70 65 |vRec.mac|hineType| |00000e60| 20 3c 20 30 29 20 54 48 | 45 4e 0d 09 20 20 42 69 | < 0) TH|EN.. Bi| |00000e70| 67 42 61 64 45 72 72 6f | 72 28 6b 45 72 72 53 74 |gBadErro|r(kErrSt| |00000e80| 72 69 6e 67 73 2c 65 57 | 72 6f 6e 67 4d 61 63 68 |rings,eW|rongMach| |00000e90| 69 6e 65 29 3b 09 09 7b | 20 69 66 20 6e 6f 74 2c |ine);..{| if not,| |00000ea0| 20 61 6c 65 72 74 20 26 | 20 71 75 69 74 20 7d 0d | alert &| quit }.| |00000eb0| 0d 09 7b 20 69 66 20 77 | 65 20 6e 65 65 64 20 6d |..{ if w|e need m| |00000ec0| 6f 72 65 20 73 74 61 63 | 6b 20 73 70 61 63 65 2c |ore stac|k space,| |00000ed0| 20 67 65 74 20 69 74 20 | 6e 6f 77 20 7d 0d 09 73 | get it |now }..s| |00000ee0| 74 6b 4e 65 65 64 65 64 | 20 3a 3d 20 53 74 61 63 |tkNeeded| := Stac| |00000ef0| 6b 4e 65 65 64 65 64 3b | 0d 09 49 46 20 28 73 74 |kNeeded;|..IF (st| |00000f00| 6b 4e 65 65 64 65 64 20 | 3e 20 53 74 61 63 6b 53 |kNeeded |> StackS| |00000f10| 70 61 63 65 29 20 54 48 | 45 4e 20 42 45 47 49 4e |pace) TH|EN BEGIN| |00000f20| 0d 09 09 7b 20 6e 65 77 | 20 61 64 64 72 65 73 73 |...{ new| address| |00000f30| 20 69 73 20 68 65 61 70 | 20 73 69 7a 65 20 2b 20 | is heap| size + | |00000f40| 63 75 72 72 65 6e 74 20 | 73 74 61 63 6b 20 2d 20 |current |stack - | |00000f50| 6e 65 65 64 65 64 20 73 | 74 61 63 6b 20 7d 0d 09 |needed s|tack }..| |00000f60| 09 53 65 74 41 70 70 6c | 4c 69 6d 69 74 28 50 74 |.SetAppl|Limit(Pt| |00000f70| 72 28 28 6c 6f 6e 67 69 | 6e 74 28 47 65 74 41 70 |r((longi|nt(GetAp| |00000f80| 70 6c 4c 69 6d 69 74 29 | 20 2d 20 73 74 6b 4e 65 |plLimit)| - stkNe| |00000f90| 65 64 65 64 20 2b 20 53 | 74 61 63 6b 53 70 61 63 |eded + S|tackSpac| |00000fa0| 65 29 29 29 3b 0d 09 45 | 4e 44 3b 0d 09 0d 09 7b |e)));..E|ND;....{| |00000fb0| 20 43 68 65 63 6b 20 66 | 6f 72 20 6d 69 6e 69 6d | Check f|or minim| |00000fc0| 75 6d 20 68 65 61 70 20 | 73 69 7a 65 20 7d 0d 09 |um heap |size }..| |00000fd0| 68 65 61 70 53 69 7a 65 | 20 3a 3d 20 6c 6f 6e 67 |heapSize| := long| |00000fe0| 69 6e 74 28 47 65 74 41 | 70 70 6c 4c 69 6d 69 74 |int(GetA|pplLimit| |00000ff0| 29 20 2d 20 6c 6f 6e 67 | 69 6e 74 28 41 70 70 6c |) - long|int(Appl| |00001000| 69 63 5a 6f 6e 65 29 3b | 0d 09 49 46 20 28 68 65 |icZone);|..IF (he| |00001010| 61 70 53 69 7a 65 20 3c | 20 48 65 61 70 4e 65 65 |apSize <| HeapNee| |00001020| 64 65 64 29 20 54 48 45 | 4e 0d 09 20 20 42 69 67 |ded) THE|N.. Big| |00001030| 42 61 64 45 72 72 6f 72 | 28 6b 45 72 72 53 74 72 |BadError|(kErrStr| |00001040| 69 6e 67 73 2c 65 53 6d | 61 6c 6c 53 69 7a 65 29 |ings,eSm|allSize)| |00001050| 3b 0d 0d 09 7b 20 65 78 | 70 61 6e 64 20 74 68 65 |;...{ ex|pand the| |00001060| 20 68 65 61 70 20 73 6f | 20 6e 65 77 20 63 6f 64 | heap so| new cod| |00001070| 65 20 73 65 67 6d 65 6e | 74 73 20 6c 6f 61 64 20 |e segmen|ts load | |00001080| 61 74 20 74 68 65 20 74 | 6f 70 20 7d 0d 09 4d 61 |at the t|op }..Ma| |00001090| 78 41 70 70 6c 5a 6f 6e | 65 3b 0d 0d 09 7b 20 61 |xApplZon|e;...{ a| |000010a0| 6c 6c 6f 63 61 74 65 20 | 61 6e 20 65 6d 70 74 79 |llocate |an empty| |000010b0| 20 64 6f 63 75 6d 65 6e | 74 20 6c 69 73 74 20 7d | documen|t list }| |000010c0| 0d 09 4e 45 57 28 66 44 | 6f 63 4c 69 73 74 29 3b |..NEW(fD|ocList);| |000010d0| 0d 09 66 44 6f 63 4c 69 | 73 74 2e 49 44 6f 63 75 |..fDocLi|st.IDocu| |000010e0| 6d 65 6e 74 4c 69 73 74 | 3b 0d 0d 09 7b 20 63 68 |mentList|;...{ ch| |000010f0| 65 63 6b 20 74 6f 20 73 | 65 65 20 69 66 20 57 61 |eck to s|ee if Wa| |00001100| 69 74 4e 65 78 74 45 76 | 65 6e 74 20 69 73 20 69 |itNextEv|ent is i| |00001110| 6d 70 6c 65 6d 65 6e 74 | 65 64 20 7d 0d 09 66 48 |mplement|ed }..fH| |00001120| 61 76 65 57 61 69 74 4e | 65 78 74 45 76 65 6e 74 |aveWaitN|extEvent| |00001130| 20 3a 3d 20 54 72 61 70 | 41 76 61 69 6c 61 62 6c | := Trap|Availabl| |00001140| 65 28 5f 57 61 69 74 4e | 65 78 74 45 76 65 6e 74 |e(_WaitN|extEvent| |00001150| 2c 20 54 6f 6f 6c 54 72 | 61 70 29 3b 0d 0d 09 7b |, ToolTr|ap);...{| |00001160| 20 69 6e 69 74 69 61 6c | 69 7a 65 20 6f 75 72 20 | initial|ize our | |00001170| 63 6c 61 73 73 20 76 61 | 72 69 61 62 6c 65 73 20 |class va|riables | |00001180| 7d 0d 09 66 43 75 72 44 | 6f 63 20 3a 3d 20 4e 49 |}..fCurD|oc := NI| |00001190| 4c 3b 0d 09 66 44 6f 6e | 65 20 3a 3d 20 46 41 4c |L;..fDon|e := FAL| |000011a0| 53 45 3b 0d 09 66 49 6e | 42 61 63 6b 67 72 6f 75 |SE;..fIn|Backgrou| |000011b0| 6e 64 20 3a 3d 20 46 41 | 4c 53 45 3b 0d 09 66 4d |nd := FA|LSE;..fM| |000011c0| 6f 75 73 65 52 67 6e 20 | 3a 3d 20 4e 49 4c 3b 0d |ouseRgn |:= NIL;.| |000011d0| 09 66 57 68 69 63 68 57 | 69 6e 64 6f 77 20 3a 3d |.fWhichW|indow :=| |000011e0| 20 4e 49 4c 3b 0d 45 4e | 44 3b 0d 0d 7b 24 53 20 | NIL;.EN|D;..{$S | |000011f0| 4d 61 69 6e 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Main}.{-|--------| |00001200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 45 76 |--------|--+.|.Ev| |00001220| 65 6e 74 4c 6f 6f 70 09 | 09 09 09 09 09 7c 0d 2b |entLoop.|.....|.+| |00001230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001250| 2d 2d 2d 7d 0d 50 52 4f | 43 45 44 55 52 45 20 54 |---}.PRO|CEDURE T| |00001260| 41 70 70 6c 69 63 61 74 | 69 6f 6e 2e 45 76 65 6e |Applicat|ion.Even| |00001270| 74 4c 6f 6f 70 3b 0d 56 | 41 52 0d 09 67 6f 74 45 |tLoop;.V|AR..gotE| |00001280| 76 65 6e 74 3a 20 42 6f | 6f 6c 65 61 6e 3b 0d 09 |vent: Bo|olean;..| |00001290| 61 6e 45 76 65 6e 74 3a | 20 45 76 65 6e 74 52 65 |anEvent:| EventRe| |000012a0| 63 6f 72 64 3b 0d 42 45 | 47 49 4e 0d 0d 09 53 65 |cord;.BE|GIN...Se| |000012b0| 74 55 70 3b 09 09 7b 20 | 63 61 6c 6c 20 73 65 74 |tUp;..{ |call set| |000012c0| 75 70 20 72 6f 75 74 69 | 6e 65 20 7d 0d 09 44 6f |up routi|ne }..Do| |000012d0| 49 64 6c 65 3b 09 09 7b | 20 64 6f 20 69 64 6c 65 |Idle;..{| do idle| |000012e0| 20 6f 6e 63 65 20 7d 0d | 0d 09 57 48 49 4c 45 20 | once }.|..WHILE | |000012f0| 28 66 44 6f 6e 65 20 3d | 20 46 41 4c 53 45 29 20 |(fDone =| FALSE) | |00001300| 44 4f 20 42 45 47 49 4e | 0d 0d 09 09 7b 20 61 6c |DO BEGIN|....{ al| |00001310| 77 61 79 73 20 73 65 74 | 20 75 70 20 66 57 68 69 |ways set| up fWhi| |00001320| 63 68 57 69 6e 64 6f 77 | 20 62 65 66 6f 72 65 20 |chWindow| before | |00001330| 64 6f 69 6e 67 20 61 6e | 79 74 68 69 6e 67 20 7d |doing an|ything }| |00001340| 0d 09 09 66 57 68 69 63 | 68 57 69 6e 64 6f 77 20 |...fWhic|hWindow | |00001350| 3a 3d 20 46 72 6f 6e 74 | 57 69 6e 64 6f 77 3b 0d |:= Front|Window;.| |00001360| 09 09 49 46 20 28 66 57 | 68 69 63 68 57 69 6e 64 |..IF (fW|hichWind| |00001370| 6f 77 20 3c 3e 20 6e 69 | 6c 29 20 74 68 65 6e 20 |ow <> ni|l) then | |00001380| 62 65 67 69 6e 0d 09 09 | 09 7b 20 73 65 65 20 69 |begin...|.{ see i| |00001390| 66 20 77 69 6e 64 6f 77 | 20 62 65 6c 6f 6e 67 73 |f window| belongs| |000013a0| 20 74 6f 20 61 20 64 6f | 63 75 6d 65 6e 74 20 7d | to a do|cument }| |000013b0| 0d 09 09 09 66 43 75 72 | 44 6f 63 20 3a 3d 20 66 |....fCur|Doc := f| |000013c0| 44 6f 63 4c 69 73 74 2e | 46 69 6e 64 44 6f 63 28 |DocList.|FindDoc(| |000013d0| 66 57 68 69 63 68 57 69 | 6e 64 6f 77 29 3b 0d 09 |fWhichWi|ndow);..| |000013e0| 09 09 7b 20 6d 61 6b 65 | 20 73 75 72 65 20 77 65 |..{ make| sure we| |000013f0| 20 61 6c 77 61 79 73 20 | 64 72 61 77 20 69 6e 74 | always |draw int| |00001400| 6f 20 63 6f 72 72 65 63 | 74 20 77 69 6e 64 6f 77 |o correc|t window| |00001410| 20 7d 0d 09 09 09 53 65 | 74 50 6f 72 74 28 66 57 | }....Se|tPort(fW| |00001420| 68 69 63 68 57 69 6e 64 | 6f 77 29 3b 0d 09 09 45 |hichWind|ow);...E| |00001430| 4e 44 20 45 4c 53 45 20 | 42 45 47 49 4e 0d 09 09 |ND ELSE |BEGIN...| |00001440| 09 66 43 75 72 44 6f 63 | 20 3a 3d 20 6e 69 6c 3b |.fCurDoc| := nil;| |00001450| 0d 09 09 45 4e 44 3b 0d | 0d 0d 09 09 44 6f 49 64 |...END;.|....DoId| |00001460| 6c 65 3b 09 09 09 7b 20 | 63 61 6c 6c 20 69 64 6c |le;...{ |call idl| |00001470| 65 20 74 69 6d 65 20 68 | 61 6e 64 6c 65 72 20 7d |e time h|andler }| |00001480| 0d 0d 09 09 49 46 20 28 | 66 48 61 76 65 57 61 69 |....IF (|fHaveWai| |00001490| 74 4e 65 78 74 45 76 65 | 6e 74 29 20 54 48 45 4e |tNextEve|nt) THEN| |000014a0| 20 42 45 47 49 4e 0d 09 | 09 09 67 6f 74 45 76 65 | BEGIN..|..gotEve| |000014b0| 6e 74 20 3a 3d 20 57 61 | 69 74 4e 65 78 74 45 76 |nt := Wa|itNextEv| |000014c0| 65 6e 74 28 65 76 65 72 | 79 45 76 65 6e 74 2c 20 |ent(ever|yEvent, | |000014d0| 61 6e 45 76 65 6e 74 2c | 20 53 6c 65 65 70 56 61 |anEvent,| SleepVa| |000014e0| 6c 2c 20 66 4d 6f 75 73 | 65 52 67 6e 29 3b 0d 09 |l, fMous|eRgn);..| |000014f0| 09 45 4e 44 20 45 4c 53 | 45 20 42 45 47 49 4e 0d |.END ELS|E BEGIN.| |00001500| 09 09 09 53 79 73 74 65 | 6d 54 61 73 6b 3b 0d 09 |...Syste|mTask;..| |00001510| 09 09 67 6f 74 45 76 65 | 6e 74 20 3a 3d 20 47 65 |..gotEve|nt := Ge| |00001520| 74 4e 65 78 74 45 76 65 | 6e 74 28 65 76 65 72 79 |tNextEve|nt(every| |00001530| 45 76 65 6e 74 2c 20 61 | 6e 45 76 65 6e 74 29 3b |Event, a|nEvent);| |00001540| 0d 09 09 45 4e 44 3b 0d | 09 09 66 54 68 65 45 76 |...END;.|..fTheEv| |00001550| 65 6e 74 20 3a 3d 20 61 | 6e 45 76 65 6e 74 3b 0d |ent := a|nEvent;.| |00001560| 0d 09 09 7b 20 6d 61 6b | 65 20 73 75 72 65 20 77 |...{ mak|e sure w| |00001570| 65 20 67 6f 74 20 61 20 | 72 65 61 6c 20 65 76 65 |e got a |real eve| |00001580| 6e 74 20 7d 0d 09 09 49 | 46 20 67 6f 74 45 76 65 |nt }...I|F gotEve| |00001590| 6e 74 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |nt THEN |BEGIN...| |000015a0| 09 41 64 6a 75 73 74 43 | 75 72 73 6f 72 3b 0d 09 |.AdjustC|ursor;..| |000015b0| 09 09 43 41 53 45 20 28 | 66 54 68 65 45 76 65 6e |..CASE (|fTheEven| |000015c0| 74 2e 77 68 61 74 29 20 | 4f 46 0d 09 09 09 09 6d |t.what) |OF.....m| |000015d0| 6f 75 73 65 44 6f 77 6e | 09 3a 20 48 64 6c 4d 6f |ouseDown|.: HdlMo| |000015e0| 75 73 65 44 6f 77 6e 3b | 0d 09 09 09 09 6d 6f 75 |useDown;|.....mou| |000015f0| 73 65 55 70 09 09 3a 20 | 48 64 6c 4d 6f 75 73 65 |seUp..: |HdlMouse| |00001600| 55 70 3b 0d 09 09 09 09 | 6b 65 79 44 6f 77 6e 2c |Up;.....|keyDown,| |00001610| 0d 09 09 09 09 61 75 74 | 6f 4b 65 79 09 09 3a 20 |.....aut|oKey..: | |00001620| 48 64 6c 4b 65 79 44 6f | 77 6e 3b 0d 09 09 09 09 |HdlKeyDo|wn;.....| |00001630| 75 70 64 61 74 65 45 76 | 74 09 3a 20 48 64 6c 55 |updateEv|t.: HdlU| |00001640| 70 64 61 74 65 45 76 74 | 3b 0d 09 09 09 09 64 69 |pdateEvt|;.....di| |00001650| 73 6b 45 76 74 09 09 3a | 20 48 64 6c 44 69 73 6b |skEvt..:| HdlDisk| |00001660| 45 76 74 3b 0d 09 09 09 | 09 61 63 74 69 76 61 74 |Evt;....|.activat| |00001670| 65 45 76 74 09 3a 20 48 | 64 6c 41 63 74 69 76 61 |eEvt.: H|dlActiva| |00001680| 74 65 45 76 74 3b 0d 09 | 09 09 09 6b 4f 73 45 76 |teEvt;..|...kOsEv| |00001690| 65 6e 74 20 09 3a 20 48 | 64 6c 4f 53 45 76 65 6e |ent .: H|dlOSEven| |000016a0| 74 3b 0d 09 09 09 45 4e | 44 3b 20 7b 20 65 6e 64 |t;....EN|D; { end| |000016b0| 20 73 77 69 74 63 68 20 | 28 66 54 68 65 45 76 65 | switch |(fTheEve| |000016c0| 6e 74 2e 77 68 61 74 29 | 20 7d 0d 09 09 45 4e 44 |nt.what)| }...END| |000016d0| 3b 20 7b 20 69 66 20 67 | 6f 74 45 76 65 6e 74 20 |; { if g|otEvent | |000016e0| 7d 0d 09 09 41 64 6a 75 | 73 74 43 75 72 73 6f 72 |}...Adju|stCursor| |000016f0| 3b 0d 09 45 4e 44 3b 20 | 7b 6f 66 20 45 76 65 6e |;..END; |{of Even| |00001700| 74 4c 6f 6f 70 7d 0d 09 | 43 6c 65 61 6e 55 70 3b |tLoop}..|CleanUp;| |00001710| 0d 45 4e 44 3b 0d 0d 7b | 24 53 20 4d 61 69 6e 7d |.END;..{|$S Main}| |00001720| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------| |00001730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001740| 2d 2d 2d 2d 2d 2b 0d 7c | 09 53 65 74 75 70 09 09 |-----+.||.Setup..| |00001750| 09 09 09 09 09 7c 0d 2b | 2d 2d 2d 2d 2d 2d 2d 2d |.....|.+|--------| |00001760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 50 52 4f |--------|---}.PRO| |00001780| 43 45 44 55 52 45 20 54 | 41 70 70 6c 69 63 61 74 |CEDURE T|Applicat| |00001790| 69 6f 6e 2e 53 65 74 75 | 70 3b 09 09 7b 20 52 75 |ion.Setu|p;..{ Ru| |000017a0| 6e 20 62 65 66 6f 72 65 | 20 65 76 65 6e 74 20 6c |n before| event l| |000017b0| 6f 6f 70 20 73 74 61 72 | 74 73 20 7d 0d 42 45 47 |oop star|ts }.BEG| |000017c0| 49 4e 0d 45 4e 44 3b 0d | 0d 7b 24 53 20 4d 61 69 |IN.END;.|.{$S Mai| |000017d0| 6e 7d 0d 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |n}.{----|--------| |000017e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000017f0| 2d 2d 2d 2d 2d 2d 2d 2b | 0d 7c 09 43 6c 65 61 6e |-------+|.|.Clean| |00001800| 55 70 09 09 09 09 09 09 | 09 7c 0d 2b 2d 2d 2d 2d |Up......|.|.+----| |00001810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}| |00001830| 0d 50 52 4f 43 45 44 55 | 52 45 20 54 41 70 70 6c |.PROCEDU|RE TAppl| |00001840| 69 63 61 74 69 6f 6e 2e | 43 6c 65 61 6e 55 70 3b |ication.|CleanUp;| |00001850| 09 09 7b 20 52 75 6e 20 | 61 74 20 65 6e 64 20 6f |..{ Run |at end o| |00001860| 66 20 6c 6f 6f 70 20 7d | 0d 42 45 47 49 4e 0d 09 |f loop }|.BEGIN..| |00001870| 55 6e 6c 6f 61 64 53 65 | 67 28 40 49 6e 69 74 53 |UnloadSe|g(@InitS| |00001880| 65 67 29 3b 0d 45 4e 44 | 3b 0d 0d 7b 24 53 20 4d |eg);.END|;..{$S M| |00001890| 61 69 6e 7d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ain}.{--|--------| |000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000018b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 0d 7c 09 45 78 69 |--------|-+.|.Exi| |000018c0| 74 4c 6f 6f 70 09 09 09 | 09 09 09 7c 0d 2b 2d 2d |tLoop...|...|.+--| |000018d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000018e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000018f0| 2d 7d 0d 50 52 4f 43 45 | 44 55 52 45 20 54 41 70 |-}.PROCE|DURE TAp| |00001900| 70 6c 69 63 61 74 69 6f | 6e 2e 45 78 69 74 4c 6f |plicatio|n.ExitLo| |00001910| 6f 70 3b 09 7b 20 43 61 | 6c 6c 20 74 68 69 73 20 |op;.{ Ca|ll this | |00001920| 74 6f 20 65 78 69 74 20 | 6c 6f 6f 70 20 7d 0d 42 |to exit |loop }.B| |00001930| 45 47 49 4e 0d 09 66 44 | 6f 6e 65 20 3a 3d 20 54 |EGIN..fD|one := T| |00001940| 52 55 45 3b 0d 45 4e 44 | 3b 0d 0d 7b 24 53 20 4d |RUE;.END|;..{$S M| |00001950| 61 69 6e 7d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ain}.{--|--------| |00001960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 0d 7c 09 44 6f 49 |--------|-+.|.DoI| |00001980| 64 6c 65 09 09 09 09 09 | 09 09 7c 0d 2b 2d 2d 2d |dle.....|..|.+---| |00001990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000019a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000019b0| 7d 0d 50 52 4f 43 45 44 | 55 52 45 20 54 41 70 70 |}.PROCED|URE TApp| |000019c0| 6c 69 63 61 74 69 6f 6e | 2e 44 6f 49 64 6c 65 3b |lication|.DoIdle;| |000019d0| 09 09 7b 20 49 64 6c 65 | 20 74 69 6d 65 20 68 61 |..{ Idle| time ha| |000019e0| 6e 64 6c 65 72 20 28 62 | 6c 69 6e 6b 20 63 61 72 |ndler (b|link car| |000019f0| 65 74 2c 20 62 61 63 6b | 67 72 6f 75 6e 64 20 74 |et, back|ground t| |00001a00| 61 73 6b 73 29 20 7d 0d | 42 45 47 49 4e 0d 45 4e |asks) }.|BEGIN.EN| |00001a10| 44 3b 0d 0d 7b 24 53 20 | 4d 61 69 6e 7d 0d 7b 2d |D;..{$S |Main}.{-| |00001a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001a40| 2d 2d 2b 0d 7c 09 41 64 | 6a 75 73 74 4d 65 6e 75 |--+.|.Ad|justMenu| |00001a50| 73 09 09 09 09 09 09 7c | 0d 2b 2d 2d 2d 2d 2d 2d |s......||.+------| |00001a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 50 |--------|-----}.P| |00001a80| 52 4f 43 45 44 55 52 45 | 20 54 41 70 70 6c 69 63 |ROCEDURE| TApplic| |00001a90| 61 74 69 6f 6e 2e 41 64 | 6a 75 73 74 4d 65 6e 75 |ation.Ad|justMenu| |00001aa0| 73 3b 09 7b 20 4d 65 6e | 75 20 55 70 64 61 74 65 |s;.{ Men|u Update| |00001ab0| 72 20 72 6f 75 74 69 6e | 65 20 7d 0d 42 45 47 49 |r routin|e }.BEGI| |00001ac0| 4e 0d 45 4e 44 3b 0d 0d | 7b 24 53 20 4d 61 69 6e |N.END;..|{$S Main| |00001ad0| 7d 0d 7b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}.{-----|--------| |00001ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001af0| 2d 2d 2d 2d 2d 2d 2b 0d | 7c 09 48 64 6c 4f 53 45 |------+.||.HdlOSE| |00001b00| 76 65 6e 74 09 09 09 09 | 09 09 7c 0d 2b 2d 2d 2d |vent....|..|.+---| |00001b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001b30| 7d 0d 50 52 4f 43 45 44 | 55 52 45 20 54 41 70 70 |}.PROCED|URE TApp| |00001b40| 6c 69 63 61 74 69 6f 6e | 2e 48 64 6c 4f 53 45 76 |lication|.HdlOSEv| |00001b50| 65 6e 74 3b 09 09 7b 20 | 43 61 6c 6c 73 20 44 6f |ent;..{ |Calls Do| |00001b60| 53 75 73 70 65 6e 64 2c | 20 44 6f 52 65 73 75 6d |Suspend,| DoResum| |00001b70| 65 20 61 6e 64 20 44 6f | 49 64 6c 65 20 61 73 20 |e and Do|Idle as | |00001b80| 61 70 72 6f 70 6f 73 20 | 7d 0d 56 41 52 0d 09 64 |apropos |}.VAR..d| |00001b90| 6f 43 6f 6e 76 65 72 74 | 3a 20 42 6f 6f 6c 65 61 |oConvert|: Boolea| |00001ba0| 6e 3b 0d 09 65 76 54 79 | 70 65 3a 20 62 79 74 65 |n;..evTy|pe: byte| |00001bb0| 3b 0d 42 45 47 49 4e 0d | 0d 09 7b 20 69 73 20 69 |;.BEGIN.|..{ is i| |00001bc0| 74 20 61 20 6d 75 6c 74 | 69 66 69 6e 64 65 72 20 |t a mult|ifinder | |00001bd0| 65 76 65 6e 74 3f 20 7d | 0d 09 65 76 54 79 70 65 |event? }|..evType| |00001be0| 20 3a 3d 20 42 41 6e 64 | 28 42 52 6f 74 52 28 66 | := BAnd|(BRotR(f| |00001bf0| 54 68 65 45 76 65 6e 74 | 2e 6d 65 73 73 61 67 65 |TheEvent|.message| |00001c00| 2c 20 32 34 29 2c 24 30 | 30 46 46 29 3b 0d 09 43 |, 24),$0|0FF);..C| |00001c10| 41 53 45 20 65 76 54 79 | 70 65 20 4f 46 09 09 7b |ASE evTy|pe OF..{| |00001c20| 20 68 69 67 68 20 62 79 | 74 65 20 6f 66 20 6d 65 | high by|te of me| |00001c30| 73 73 61 67 65 20 69 73 | 20 74 79 70 65 20 6f 66 |ssage is| type of| |00001c40| 20 65 76 65 6e 74 20 7d | 0d 09 09 6b 4d 6f 75 73 | event }|...kMous| |00001c50| 65 4d 6f 76 65 64 4d 65 | 73 73 61 67 65 20 3a 0d |eMovedMe|ssage :.| |00001c60| 09 09 09 44 6f 49 64 6c | 65 3b 09 09 09 09 09 7b |...DoIdl|e;.....{| |00001c70| 20 6d 6f 75 73 65 2d 6d | 6f 76 65 64 20 69 73 20 | mouse-m|oved is | |00001c80| 61 6c 73 6f 20 61 6e 20 | 69 64 6c 65 20 65 76 65 |also an |idle eve| |00001c90| 6e 74 20 7d 0d 09 09 6b | 53 75 73 70 65 6e 64 52 |nt }...k|SuspendR| |00001ca0| 65 73 75 6d 65 4d 65 73 | 73 61 67 65 20 3a 20 42 |esumeMes|sage : B| |00001cb0| 45 47 49 4e 0d 09 09 09 | 64 6f 43 6f 6e 76 65 72 |EGIN....|doConver| |00001cc0| 74 20 3a 3d 20 28 42 41 | 6e 64 28 66 54 68 65 45 |t := (BA|nd(fTheE| |00001cd0| 76 65 6e 74 2e 6d 65 73 | 73 61 67 65 2c 20 6b 43 |vent.mes|sage, kC| |00001ce0| 6c 69 70 43 6f 6e 76 65 | 72 74 4d 61 73 6b 29 20 |lipConve|rtMask) | |00001cf0| 3c 3e 20 30 29 3b 0d 09 | 09 09 66 49 6e 42 61 63 |<> 0);..|..fInBac| |00001d00| 6b 67 72 6f 75 6e 64 20 | 3a 3d 20 28 42 41 6e 64 |kground |:= (BAnd| |00001d10| 28 66 54 68 65 45 76 65 | 6e 74 2e 6d 65 73 73 61 |(fTheEve|nt.messa| |00001d20| 67 65 2c 20 6b 52 65 73 | 75 6d 65 4d 61 73 6b 29 |ge, kRes|umeMask)| |00001d30| 20 3d 20 30 29 3b 0d 09 | 09 09 49 46 20 28 66 49 | = 0);..|..IF (fI| |00001d40| 6e 42 61 63 6b 67 72 6f | 75 6e 64 29 20 54 48 45 |nBackgro|und) THE| |00001d50| 4e 0d 09 09 09 09 44 6f | 53 75 73 70 65 6e 64 28 |N.....Do|Suspend(| |00001d60| 64 6f 43 6f 6e 76 65 72 | 74 29 0d 09 09 09 45 4c |doConver|t)....EL| |00001d70| 53 45 0d 09 09 09 09 44 | 6f 52 65 73 75 6d 65 28 |SE.....D|oResume(| |00001d80| 64 6f 43 6f 6e 76 65 72 | 74 29 3b 0d 09 09 45 4e |doConver|t);...EN| |00001d90| 44 3b 20 7b 20 6b 53 75 | 73 70 65 6e 64 52 65 73 |D; { kSu|spendRes| |00001da0| 75 6d 65 4d 65 73 73 61 | 67 65 20 7d 0d 09 45 4e |umeMessa|ge }..EN| |00001db0| 44 3b 20 7b 20 43 41 53 | 45 20 53 74 61 74 65 6d |D; { CAS|E Statem| |00001dc0| 65 6e 74 20 7d 0d 45 4e | 44 3b 0d 0d 7b 24 53 20 |ent }.EN|D;..{$S | |00001dd0| 4d 61 69 6e 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Main}.{-|--------| |00001de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 48 64 |--------|--+.|.Hd| |00001e00| 6c 4d 6f 75 73 65 44 6f | 77 6e 09 09 09 09 09 7c |lMouseDo|wn.....|| |00001e10| 0d 2b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.+------|--------| |00001e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00001e30| 2d 2d 2d 2d 2d 7d 0d 50 | 52 4f 43 45 44 55 52 45 |-----}.P|ROCEDURE| |00001e40| 20 54 41 70 70 6c 69 63 | 61 74 69 6f 6e 2e 48 64 | TApplic|ation.Hd| |00001e50| 6c 4d 6f 75 73 65 44 6f | 77 6e 3b 09 7b 20 43 61 |lMouseDo|wn;.{ Ca| |00001e60| 6c 6c 73 20 44 6f 43 6f | 6e 74 65 6e 74 2c 20 44 |lls DoCo|ntent, D| |00001e70| 6f 47 72 6f 77 2c 20 44 | 6f 5a 6f 6f 6d 2c 20 65 |oGrow, D|oZoom, e| |00001e80| 74 63 20 7d 0d 56 41 52 | 0d 09 6d 52 65 73 75 6c |tc }.VAR|..mResul| |00001e90| 74 3a 20 4c 6f 6e 67 69 | 6e 74 3b 0d 09 70 61 72 |t: Longi|nt;..par| |00001ea0| 74 43 6f 64 65 3a 20 69 | 6e 74 65 67 65 72 3b 0d |tCode: i|nteger;.| |00001eb0| 09 61 6e 45 76 65 6e 74 | 3a 20 45 76 65 6e 74 52 |.anEvent|: EventR| |00001ec0| 65 63 6f 72 64 3b 0d 09 | 61 57 69 6e 64 6f 77 3a |ecord;..|aWindow:| |00001ed0| 20 57 69 6e 64 6f 77 50 | 74 72 3b 0d 42 45 47 49 | WindowP|tr;.BEGI| |00001ee0| 4e 0d 09 70 61 72 74 43 | 6f 64 65 20 3a 3d 20 46 |N..partC|ode := F| |00001ef0| 69 6e 64 57 69 6e 64 6f | 77 28 66 54 68 65 45 76 |indWindo|w(fTheEv| |00001f00| 65 6e 74 2e 77 68 65 72 | 65 2c 20 61 57 69 6e 64 |ent.wher|e, aWind| |00001f10| 6f 77 29 3b 0d 09 66 57 | 68 69 63 68 57 69 6e 64 |ow);..fW|hichWind| |00001f20| 6f 77 20 3a 3d 20 61 57 | 69 6e 64 6f 77 3b 0d 09 |ow := aW|indow;..| |00001f30| 43 41 53 45 20 70 61 72 | 74 43 6f 64 65 20 4f 46 |CASE par|tCode OF| |00001f40| 0d 09 09 69 6e 53 79 73 | 57 69 6e 64 6f 77 20 3a |...inSys|Window :| |00001f50| 20 4d 6f 75 73 65 49 6e | 53 79 73 57 69 6e 64 6f | MouseIn|SysWindo| |00001f60| 77 3b 0d 09 09 69 6e 4d | 65 6e 75 42 61 72 20 3a |w;...inM|enuBar :| |00001f70| 20 42 45 47 49 4e 0d 09 | 09 09 41 64 6a 75 73 74 | BEGIN..|..Adjust| |00001f80| 4d 65 6e 75 73 3b 0d 09 | 09 09 6d 52 65 73 75 6c |Menus;..|..mResul| |00001f90| 74 20 3a 3d 20 4d 65 6e | 75 53 65 6c 65 63 74 28 |t := Men|uSelect(| |00001fa0| 66 54 68 65 45 76 65 6e | 74 2e 77 68 65 72 65 29 |fTheEven|t.where)| |00001fb0| 3b 0d 09 09 09 49 46 20 | 28 6d 52 65 73 75 6c 74 |;....IF |(mResult| |00001fc0| 20 3c 3e 20 30 29 20 54 | 48 45 4e 0d 09 09 09 20 | <> 0) T|HEN.... | |00001fd0| 20 44 6f 4d 65 6e 75 43 | 6f 6d 6d 61 6e 64 28 48 | DoMenuC|ommand(H| |00001fe0| 69 57 72 64 28 6d 52 65 | 73 75 6c 74 29 2c 4c 6f |iWrd(mRe|sult),Lo| |00001ff0| 57 72 64 28 6d 52 65 73 | 75 6c 74 29 29 3b 0d 09 |Wrd(mRes|ult));..| |00002000| 09 45 4e 44 3b 0d 09 09 | 69 6e 47 6f 41 77 61 79 |.END;...|inGoAway| |00002010| 20 3a 0d 09 09 09 44 6f | 47 6f 41 77 61 79 3b 0d | :....Do|GoAway;.| |00002020| 09 09 69 6e 44 72 61 67 | 20 3a 0d 09 09 09 44 6f |..inDrag| :....Do| |00002030| 44 72 61 67 3b 0d 09 09 | 69 6e 47 72 6f 77 20 3a |Drag;...|inGrow :| |00002040| 0d 09 09 09 49 46 20 28 | 66 43 75 72 44 6f 63 20 |....IF (|fCurDoc | |00002050| 3c 3e 20 4e 49 4c 29 20 | 54 48 45 4e 20 42 45 47 |<> NIL) |THEN BEG| |00002060| 49 4e 0d 09 09 09 09 61 | 6e 45 76 65 6e 74 20 3a |IN.....a|nEvent :| |00002070| 3d 20 66 54 68 65 45 76 | 65 6e 74 3b 0d 09 09 09 |= fTheEv|ent;....| |00002080| 09 66 43 75 72 44 6f 63 | 2e 44 6f 47 72 6f 77 28 |.fCurDoc|.DoGrow(| |00002090| 61 6e 45 76 65 6e 74 29 | 3b 0d 09 09 09 45 4e 44 |anEvent)|;....END| |000020a0| 3b 0d 09 09 69 6e 5a 6f | 6f 6d 49 6e 2c 0d 09 09 |;...inZo|omIn,...| |000020b0| 69 6e 5a 6f 6f 6d 4f 75 | 74 20 3a 0d 09 09 09 49 |inZoomOu|t :....I| |000020c0| 46 20 28 28 54 72 61 63 | 6b 42 6f 78 28 66 57 68 |F ((Trac|kBox(fWh| |000020d0| 69 63 68 57 69 6e 64 6f | 77 2c 20 66 54 68 65 45 |ichWindo|w, fTheE| |000020e0| 76 65 6e 74 2e 77 68 65 | 72 65 2c 20 70 61 72 74 |vent.whe|re, part| |000020f0| 43 6f 64 65 29 29 20 41 | 4e 44 0d 09 09 09 09 09 |Code)) A|ND......| |00002100| 28 66 43 75 72 44 6f 63 | 20 3c 3e 20 4e 49 4c 29 |(fCurDoc| <> NIL)| |00002110| 29 20 54 48 45 4e 0d 09 | 09 09 20 20 09 66 43 75 |) THEN..|.. .fCu| |00002120| 72 44 6f 63 2e 44 6f 5a | 6f 6f 6d 28 70 61 72 74 |rDoc.DoZ|oom(part| |00002130| 43 6f 64 65 29 3b 0d 09 | 09 69 6e 43 6f 6e 74 65 |Code);..|.inConte| |00002140| 6e 74 20 3a 20 7b 20 49 | 66 20 77 69 6e 64 6f 77 |nt : { I|f window| |00002150| 20 69 73 20 6e 6f 74 20 | 69 6e 20 66 72 6f 6e 74 | is not |in front| |00002160| 2c 20 6d 61 6b 65 20 69 | 74 20 73 6f 20 7d 0d 09 |, make i|t so }..| |00002170| 09 09 49 46 20 28 66 57 | 68 69 63 68 57 69 6e 64 |..IF (fW|hichWind| |00002180| 6f 77 20 3c 3e 20 46 72 | 6f 6e 74 57 69 6e 64 6f |ow <> Fr|ontWindo| |00002190| 77 29 20 54 48 45 4e 0d | 09 09 09 09 53 65 6c 65 |w) THEN.|....Sele| |000021a0| 63 74 57 69 6e 64 6f 77 | 28 66 57 68 69 63 68 57 |ctWindow|(fWhichW| |000021b0| 69 6e 64 6f 77 29 0d 09 | 09 09 45 4c 53 45 20 49 |indow)..|..ELSE I| |000021c0| 46 20 28 66 43 75 72 44 | 6f 63 20 3c 3e 20 4e 49 |F (fCurD|oc <> NI| |000021d0| 4c 29 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |L) THEN |BEGIN...| |000021e0| 09 09 61 6e 45 76 65 6e | 74 20 3a 3d 20 66 54 68 |..anEven|t := fTh| |000021f0| 65 45 76 65 6e 74 3b 0d | 09 09 09 09 66 43 75 72 |eEvent;.|....fCur| |00002200| 44 6f 63 2e 44 6f 43 6f | 6e 74 65 6e 74 28 61 6e |Doc.DoCo|ntent(an| |00002210| 45 76 65 6e 74 29 3b 0d | 09 09 09 45 4e 44 3b 0d |Event);.|...END;.| |00002220| 09 45 4e 44 3b 0d 45 4e | 44 3b 0d 0d 7b 24 53 20 |.END;.EN|D;..{$S | |00002230| 4d 61 69 6e 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Main}.{-|--------| |00002240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 48 64 |--------|--+.|.Hd| |00002260| 6c 4b 65 79 44 6f 77 6e | 09 09 09 09 09 09 7c 0d |lKeyDown|......|.| |00002270| 2b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+-------|--------| |00002280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002290| 2d 2d 2d 2d 7d 0d 50 52 | 4f 43 45 44 55 52 45 20 |----}.PR|OCEDURE | |000022a0| 54 41 70 70 6c 69 63 61 | 74 69 6f 6e 2e 48 64 6c |TApplica|tion.Hdl| |000022b0| 4b 65 79 44 6f 77 6e 3b | 09 09 7b 20 61 6c 73 6f |KeyDown;|..{ also| |000022c0| 20 63 61 6c 6c 65 64 20 | 66 6f 72 20 61 75 74 6f | called |for auto| |000022d0| 6b 65 79 20 65 76 65 6e | 74 73 20 7d 0d 56 41 52 |key even|ts }.VAR| |000022e0| 0d 09 6b 65 79 3a 20 63 | 68 61 72 3b 0d 09 6d 52 |..key: c|har;..mR| |000022f0| 65 73 75 6c 74 3a 20 6c | 6f 6e 67 69 6e 74 3b 0d |esult: l|ongint;.| |00002300| 09 61 6e 45 76 65 6e 74 | 3a 20 45 76 65 6e 74 52 |.anEvent|: EventR| |00002310| 65 63 6f 72 64 3b 0d 42 | 45 47 49 4e 0d 09 6b 65 |ecord;.B|EGIN..ke| |00002320| 79 20 3a 3d 20 63 68 61 | 72 28 42 41 6e 64 28 66 |y := cha|r(BAnd(f| |00002330| 54 68 65 45 76 65 6e 74 | 2e 6d 65 73 73 61 67 65 |TheEvent|.message| |00002340| 2c 20 63 68 61 72 43 6f | 64 65 4d 61 73 6b 29 29 |, charCo|deMask))| |00002350| 3b 0d 09 49 46 20 28 28 | 42 41 6e 64 28 66 54 68 |;..IF ((|BAnd(fTh| |00002360| 65 45 76 65 6e 74 2e 6d | 6f 64 69 66 69 65 72 73 |eEvent.m|odifiers| |00002370| 2c 20 63 6d 64 4b 65 79 | 29 20 3c 3e 20 30 29 20 |, cmdKey|) <> 0) | |00002380| 41 4e 44 20 28 66 54 68 | 65 45 76 65 6e 74 2e 77 |AND (fTh|eEvent.w| |00002390| 68 61 74 20 3d 20 6b 65 | 79 44 6f 77 6e 29 29 20 |hat = ke|yDown)) | |000023a0| 54 48 45 4e 20 42 45 47 | 49 4e 0d 09 09 7b 20 6f |THEN BEG|IN...{ o| |000023b0| 6e 6c 79 20 64 6f 20 63 | 6f 6d 6d 61 6e 64 20 6b |nly do c|ommand k| |000023c0| 65 79 73 20 69 66 20 77 | 65 20 61 72 65 20 6e 6f |eys if w|e are no| |000023d0| 74 20 61 75 74 6f 6b 65 | 79 69 6e 67 20 7d 0d 09 |t autoke|ying }..| |000023e0| 09 41 64 6a 75 73 74 4d | 65 6e 75 73 3b 09 09 09 |.AdjustM|enus;...| |000023f0| 09 09 7b 20 6d 61 6b 65 | 20 73 75 72 65 20 6d 65 |..{ make| sure me| |00002400| 6e 75 73 20 61 72 65 20 | 75 70 20 74 6f 20 64 61 |nus are |up to da| |00002410| 74 65 20 7d 0d 09 09 6d | 52 65 73 75 6c 74 20 3a |te }...m|Result :| |00002420| 3d 20 4d 65 6e 75 4b 65 | 79 28 6b 65 79 29 3b 0d |= MenuKe|y(key);.| |00002430| 09 09 49 46 20 28 6d 52 | 65 73 75 6c 74 20 3c 3e |..IF (mR|esult <>| |00002440| 20 30 29 20 54 48 45 4e | 20 42 45 47 49 4e 09 7b | 0) THEN| BEGIN.{| |00002450| 20 69 66 20 69 74 20 77 | 61 73 6e 27 74 20 61 20 | if it w|asn't a | |00002460| 6d 65 6e 75 20 6b 65 79 | 2c 20 70 61 73 73 20 69 |menu key|, pass i| |00002470| 74 20 74 68 72 6f 75 67 | 68 20 7d 0d 09 09 09 44 |t throug|h }....D| |00002480| 6f 4d 65 6e 75 43 6f 6d | 6d 61 6e 64 28 48 69 57 |oMenuCom|mand(HiW| |00002490| 72 64 28 6d 52 65 73 75 | 6c 74 29 2c 20 4c 6f 57 |rd(mResu|lt), LoW| |000024a0| 72 64 28 6d 52 65 73 75 | 6c 74 29 29 3b 0d 09 09 |rd(mResu|lt));...| |000024b0| 45 4e 44 3b 0d 09 45 4e | 44 20 45 4c 53 45 20 42 |END;..EN|D ELSE B| |000024c0| 45 47 49 4e 0d 09 09 49 | 46 20 28 66 43 75 72 44 |EGIN...I|F (fCurD| |000024d0| 6f 63 20 3c 3e 20 6e 69 | 6c 29 20 54 48 45 4e 20 |oc <> ni|l) THEN | |000024e0| 42 45 47 49 4e 0d 09 09 | 09 61 6e 45 76 65 6e 74 |BEGIN...|.anEvent| |000024f0| 20 3a 3d 20 66 54 68 65 | 45 76 65 6e 74 3b 0d 09 | := fThe|Event;..| |00002500| 09 20 20 66 43 75 72 44 | 6f 63 2e 44 6f 4b 65 79 |. fCurD|oc.DoKey| |00002510| 44 6f 77 6e 28 61 6e 45 | 76 65 6e 74 29 3b 0d 09 |Down(anE|vent);..| |00002520| 09 45 4e 44 3b 0d 09 45 | 4e 44 3b 0d 45 4e 44 3b |.END;..E|ND;.END;| |00002530| 0d 0d 7b 24 53 20 4d 61 | 69 6e 7d 0d 7b 2d 2d 2d |..{$S Ma|in}.{---| |00002540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002560| 2b 0d 7c 09 48 64 6c 41 | 63 74 69 76 61 74 65 45 |+.|.HdlA|ctivateE| |00002570| 76 74 09 09 09 09 09 7c | 0d 2b 2d 2d 2d 2d 2d 2d |vt.....||.+------| |00002580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 50 |--------|-----}.P| |000025a0| 52 4f 43 45 44 55 52 45 | 20 54 41 70 70 6c 69 63 |ROCEDURE| TApplic| |000025b0| 61 74 69 6f 6e 2e 48 64 | 6c 41 63 74 69 76 61 74 |ation.Hd|lActivat| |000025c0| 65 45 76 74 3b 09 7b 20 | 68 61 6e 64 6c 65 73 20 |eEvt;.{ |handles | |000025d0| 73 65 74 75 70 2c 20 61 | 6e 64 20 63 61 6c 6c 73 |setup, a|nd calls| |000025e0| 20 44 6f 41 63 74 69 76 | 61 74 65 20 28 62 65 6c | DoActiv|ate (bel| |000025f0| 6f 77 29 20 7d 0d 42 45 | 47 49 4e 0d 09 7b 20 65 |ow) }.BE|GIN..{ e| |00002600| 76 65 6e 74 20 72 65 63 | 6f 72 64 20 63 6f 6e 74 |vent rec|ord cont| |00002610| 61 69 6e 73 20 77 69 6e | 64 6f 77 20 70 74 72 20 |ains win|dow ptr | |00002620| 7d 0d 09 66 57 68 69 63 | 68 57 69 6e 64 6f 77 20 |}..fWhic|hWindow | |00002630| 3a 3d 20 57 69 6e 64 6f | 77 50 74 72 28 66 54 68 |:= Windo|wPtr(fTh| |00002640| 65 45 76 65 6e 74 2e 6d | 65 73 73 61 67 65 29 3b |eEvent.m|essage);| |00002650| 0d 0d 09 7b 20 73 65 65 | 20 69 66 20 77 69 6e 64 |...{ see| if wind| |00002660| 6f 77 20 62 65 6c 6f 6e | 67 73 20 74 6f 20 61 20 |ow belon|gs to a | |00002670| 64 6f 63 75 6d 65 6e 74 | 20 7d 0d 09 66 43 75 72 |document| }..fCur| |00002680| 44 6f 63 20 3a 3d 20 66 | 44 6f 63 4c 69 73 74 2e |Doc := f|DocList.| |00002690| 46 69 6e 64 44 6f 63 28 | 66 57 68 69 63 68 57 69 |FindDoc(|fWhichWi| |000026a0| 6e 64 6f 77 29 3b 0d 09 | 53 65 74 50 6f 72 74 28 |ndow);..|SetPort(| |000026b0| 66 57 68 69 63 68 57 69 | 6e 64 6f 77 29 3b 0d 0d |fWhichWi|ndow);..| |000026c0| 09 49 46 20 28 66 43 75 | 72 44 6f 63 20 3c 3e 20 |.IF (fCu|rDoc <> | |000026d0| 4e 49 4c 29 20 54 48 45 | 4e 20 42 45 47 49 4e 0d |NIL) THE|N BEGIN.| |000026e0| 09 09 66 43 75 72 44 6f | 63 2e 44 6f 41 63 74 69 |..fCurDo|c.DoActi| |000026f0| 76 61 74 65 28 42 41 6e | 64 28 66 54 68 65 45 76 |vate(BAn|d(fTheEv| |00002700| 65 6e 74 2e 6d 6f 64 69 | 66 69 65 72 73 2c 20 61 |ent.modi|fiers, a| |00002710| 63 74 69 76 65 46 6c 61 | 67 29 20 3c 3e 20 30 29 |ctiveFla|g) <> 0)| |00002720| 3b 0d 09 45 4e 44 3b 0d | 45 4e 44 3b 0d 0d 7b 24 |;..END;.|END;..{$| |00002730| 53 20 4d 61 69 6e 7d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |S Main}.|{-------| |00002740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2b 0d 7c 09 |--------|----+.|.| |00002760| 48 64 6c 55 70 64 61 74 | 65 45 76 74 09 09 09 09 |HdlUpdat|eEvt....| |00002770| 09 7c 0d 2b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.|.+----|--------| |00002780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002790| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 50 52 4f 43 45 44 55 |-------}|.PROCEDU| |000027a0| 52 45 20 54 41 70 70 6c | 69 63 61 74 69 6f 6e 2e |RE TAppl|ication.| |000027b0| 48 64 6c 55 70 64 61 74 | 65 45 76 74 3b 09 7b 20 |HdlUpdat|eEvt;.{ | |000027c0| 68 61 6e 64 6c 65 73 20 | 73 65 74 75 70 2c 20 61 |handles |setup, a| |000027d0| 6e 64 20 63 61 6c 6c 73 | 20 44 6f 55 70 64 61 74 |nd calls| DoUpdat| |000027e0| 65 20 28 62 65 6c 6f 77 | 29 20 7d 0d 42 45 47 49 |e (below|) }.BEGI| |000027f0| 4e 0d 09 7b 20 65 76 65 | 6e 74 20 72 65 63 6f 72 |N..{ eve|nt recor| |00002800| 64 20 63 6f 6e 74 61 69 | 6e 73 20 77 69 6e 64 6f |d contai|ns windo| |00002810| 77 20 70 74 72 20 7d 0d | 09 66 57 68 69 63 68 57 |w ptr }.|.fWhichW| |00002820| 69 6e 64 6f 77 20 3a 3d | 20 57 69 6e 64 6f 77 50 |indow :=| WindowP| |00002830| 74 72 28 66 54 68 65 45 | 76 65 6e 74 2e 6d 65 73 |tr(fTheE|vent.mes| |00002840| 73 61 67 65 29 3b 0d 0d | 09 7b 20 73 65 65 20 69 |sage);..|.{ see i| |00002850| 66 20 77 69 6e 64 6f 77 | 20 62 65 6c 6f 6e 67 73 |f window| belongs| |00002860| 20 74 6f 20 61 20 64 6f | 63 75 6d 65 6e 74 20 7d | to a do|cument }| |00002870| 0d 09 66 43 75 72 44 6f | 63 20 3a 3d 20 66 44 6f |..fCurDo|c := fDo| |00002880| 63 4c 69 73 74 2e 46 69 | 6e 64 44 6f 63 28 66 57 |cList.Fi|ndDoc(fW| |00002890| 68 69 63 68 57 69 6e 64 | 6f 77 29 3b 0d 09 53 65 |hichWind|ow);..Se| |000028a0| 74 50 6f 72 74 28 66 57 | 68 69 63 68 57 69 6e 64 |tPort(fW|hichWind| |000028b0| 6f 77 29 3b 0d 0d 09 49 | 46 20 28 66 43 75 72 44 |ow);...I|F (fCurD| |000028c0| 6f 63 20 3c 3e 20 4e 49 | 4c 29 20 54 48 45 4e 20 |oc <> NI|L) THEN | |000028d0| 42 45 47 49 4e 0d 09 09 | 66 43 75 72 44 6f 63 2e |BEGIN...|fCurDoc.| |000028e0| 44 6f 55 70 64 61 74 65 | 3b 0d 09 45 4e 44 3b 0d |DoUpdate|;..END;.| |000028f0| 45 4e 44 3b 0d 0d 7b 24 | 53 20 4d 61 69 6e 7d 0d |END;..{$|S Main}.| |00002900| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------| |00002910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002920| 2d 2d 2d 2d 2b 0d 7c 09 | 48 64 6c 4d 6f 75 73 65 |----+.|.|HdlMouse| |00002930| 55 70 09 09 09 09 09 09 | 7c 0d 2b 2d 2d 2d 2d 2d |Up......||.+-----| |00002940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.| |00002960| 50 52 4f 43 45 44 55 52 | 45 20 54 41 70 70 6c 69 |PROCEDUR|E TAppli| |00002970| 63 61 74 69 6f 6e 2e 48 | 64 6c 4d 6f 75 73 65 55 |cation.H|dlMouseU| |00002980| 70 3b 0d 42 45 47 49 4e | 0d 45 4e 44 3b 0d 0d 7b |p;.BEGIN|.END;..{| |00002990| 24 53 20 4d 61 69 6e 7d | 0d 7b 2d 2d 2d 2d 2d 2d |$S Main}|.{------| |000029a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000029b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2b 0d 7c |--------|-----+.|| |000029c0| 09 48 64 6c 44 69 73 6b | 45 76 74 09 09 09 09 09 |.HdlDisk|Evt.....| |000029d0| 09 7c 0d 2b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.|.+----|--------| |000029e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000029f0| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 50 52 4f 43 45 44 55 |-------}|.PROCEDU| |00002a00| 52 45 20 54 41 70 70 6c | 69 63 61 74 69 6f 6e 2e |RE TAppl|ication.| |00002a10| 48 64 6c 44 69 73 6b 45 | 76 74 3b 0d 42 45 47 49 |HdlDiskE|vt;.BEGI| |00002a20| 4e 0d 45 4e 44 3b 0d 0d | 7b 24 53 20 4d 61 69 6e |N.END;..|{$S Main| |00002a30| 7d 0d 7b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}.{-----|--------| |00002a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002a50| 2d 2d 2d 2d 2d 2d 2b 0d | 7c 09 4d 6f 75 73 65 49 |------+.||.MouseI| |00002a60| 6e 53 79 73 57 69 6e 64 | 6f 77 09 09 09 09 7c 0d |nSysWind|ow....|.| |00002a70| 2b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+-------|--------| |00002a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002a90| 2d 2d 2d 2d 7d 0d 50 52 | 4f 43 45 44 55 52 45 20 |----}.PR|OCEDURE | |00002aa0| 54 41 70 70 6c 69 63 61 | 74 69 6f 6e 2e 4d 6f 75 |TApplica|tion.Mou| |00002ab0| 73 65 49 6e 53 79 73 57 | 69 6e 64 6f 77 3b 0d 56 |seInSysW|indow;.V| |00002ac0| 41 52 0d 09 61 6e 45 76 | 65 6e 74 3a 20 45 76 65 |AR..anEv|ent: Eve| |00002ad0| 6e 74 52 65 63 6f 72 64 | 3b 0d 42 45 47 49 4e 0d |ntRecord|;.BEGIN.| |00002ae0| 09 61 6e 45 76 65 6e 74 | 20 3a 3d 20 66 54 68 65 |.anEvent| := fThe| |00002af0| 45 76 65 6e 74 3b 0d 09 | 53 79 73 74 65 6d 43 6c |Event;..|SystemCl| |00002b00| 69 63 6b 28 61 6e 45 76 | 65 6e 74 2c 66 57 68 69 |ick(anEv|ent,fWhi| |00002b10| 63 68 57 69 6e 64 6f 77 | 29 3b 0d 45 4e 44 3b 0d |chWindow|);.END;.| |00002b20| 0d 7b 24 53 20 4d 61 69 | 6e 7d 0d 7b 2d 2d 2d 2d |.{$S Mai|n}.{----| |00002b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2b |--------|-------+| |00002b50| 0d 7c 09 44 6f 44 72 61 | 67 09 09 09 09 09 09 09 |.|.DoDra|g.......| |00002b60| 7c 0d 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d ||.+-----|--------| |00002b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002b80| 2d 2d 2d 2d 2d 2d 7d 0d | 50 52 4f 43 45 44 55 52 |------}.|PROCEDUR| |00002b90| 45 20 54 41 70 70 6c 69 | 63 61 74 69 6f 6e 2e 44 |E TAppli|cation.D| |00002ba0| 6f 44 72 61 67 3b 0d 42 | 45 47 49 4e 0d 09 44 72 |oDrag;.B|EGIN..Dr| |00002bb0| 61 67 57 69 6e 64 6f 77 | 28 66 57 68 69 63 68 57 |agWindow|(fWhichW| |00002bc0| 69 6e 64 6f 77 2c 20 66 | 54 68 65 45 76 65 6e 74 |indow, f|TheEvent| |00002bd0| 2e 77 68 65 72 65 2c 20 | 73 63 72 65 65 6e 42 69 |.where, |screenBi| |00002be0| 74 73 2e 62 6f 75 6e 64 | 73 29 3b 0d 45 4e 44 3b |ts.bound|s);.END;| |00002bf0| 0d 0d 7b 24 53 20 4d 61 | 69 6e 7d 0d 7b 2d 2d 2d |..{$S Ma|in}.{---| |00002c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002c20| 2b 0d 7c 09 44 6f 47 6f | 41 77 61 79 09 09 09 09 |+.|.DoGo|Away....| |00002c30| 09 09 7c 0d 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..|.+---|--------| |00002c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002c50| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 50 52 4f 43 45 44 |--------|}.PROCED| |00002c60| 55 52 45 20 54 41 70 70 | 6c 69 63 61 74 69 6f 6e |URE TApp|lication| |00002c70| 2e 44 6f 47 6f 41 77 61 | 79 3b 0d 56 41 52 0d 09 |.DoGoAwa|y;.VAR..| |00002c80| 61 57 69 6e 64 6f 77 3a | 20 57 69 6e 64 6f 77 50 |aWindow:| WindowP| |00002c90| 65 65 6b 3b 0d 42 45 47 | 49 4e 0d 09 49 46 20 28 |eek;.BEG|IN..IF (| |00002ca0| 54 72 61 63 6b 47 6f 41 | 77 61 79 28 66 57 68 69 |TrackGoA|way(fWhi| |00002cb0| 63 68 57 69 6e 64 6f 77 | 2c 20 66 54 68 65 45 76 |chWindow|, fTheEv| |00002cc0| 65 6e 74 2e 77 68 65 72 | 65 29 29 20 54 48 45 4e |ent.wher|e)) THEN| |00002cd0| 20 42 45 47 49 4e 0d 09 | 09 49 46 20 28 66 43 75 | BEGIN..|.IF (fCu| |00002ce0| 72 44 6f 63 20 3c 3e 20 | 4e 49 4c 29 20 54 48 45 |rDoc <> |NIL) THE| |00002cf0| 4e 20 42 45 47 49 4e 0d | 09 09 09 66 44 6f 63 4c |N BEGIN.|...fDocL| |00002d00| 69 73 74 2e 52 65 6d 6f | 76 65 44 6f 63 28 66 43 |ist.Remo|veDoc(fC| |00002d10| 75 72 44 6f 63 29 3b 0d | 09 09 09 66 43 75 72 44 |urDoc);.|...fCurD| |00002d20| 6f 63 2e 46 72 65 65 3b | 09 7b 54 44 6f 63 75 6d |oc.Free;|.{TDocum| |00002d30| 65 6e 74 2e 46 72 65 65 | 20 64 69 73 70 6f 73 65 |ent.Free| dispose| |00002d40| 73 20 6f 66 20 77 69 6e | 64 6f 77 7d 0d 09 09 45 |s of win|dow}...E| |00002d50| 4e 44 20 45 4c 53 45 20 | 42 45 47 49 4e 0d 09 09 |ND ELSE |BEGIN...| |00002d60| 09 61 57 69 6e 64 6f 77 | 20 3a 3d 20 57 69 6e 64 |.aWindow| := Wind| |00002d70| 6f 77 50 65 65 6b 28 66 | 57 68 69 63 68 57 69 6e |owPeek(f|WhichWin| |00002d80| 64 6f 77 29 3b 0d 09 09 | 09 43 6c 6f 73 65 44 65 |dow);...|.CloseDe| |00002d90| 73 6b 41 63 63 28 61 57 | 69 6e 64 6f 77 5e 2e 77 |skAcc(aW|indow^.w| |00002da0| 69 6e 64 6f 77 4b 69 6e | 64 29 3b 0d 09 09 45 4e |indowKin|d);...EN| |00002db0| 44 3b 0d 09 09 0d 09 09 | 7b 20 6d 61 6b 65 20 73 |D;......|{ make s| |00002dc0| 75 72 65 20 6f 75 72 20 | 63 75 72 72 65 6e 74 20 |ure our |current | |00002dd0| 64 6f 63 75 6d 65 6e 74 | 2f 77 69 6e 64 6f 77 20 |document|/window | |00002de0| 72 65 66 65 72 65 6e 63 | 65 73 20 61 72 65 20 76 |referenc|es are v| |00002df0| 61 6c 69 64 20 7d 0d 09 | 09 66 57 68 69 63 68 57 |alid }..|.fWhichW| |00002e00| 69 6e 64 6f 77 20 3a 3d | 20 46 72 6f 6e 74 57 69 |indow :=| FrontWi| |00002e10| 6e 64 6f 77 3b 0d 09 09 | 49 46 20 28 66 57 68 69 |ndow;...|IF (fWhi| |00002e20| 63 68 57 69 6e 64 6f 77 | 20 3c 3e 20 4e 49 4c 29 |chWindow| <> NIL)| |00002e30| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 09 66 | THEN BE|GIN....f| |00002e40| 43 75 72 44 6f 63 20 3a | 3d 20 66 44 6f 63 4c 69 |CurDoc :|= fDocLi| |00002e50| 73 74 2e 46 69 6e 64 44 | 6f 63 28 66 57 68 69 63 |st.FindD|oc(fWhic| |00002e60| 68 57 69 6e 64 6f 77 29 | 3b 0d 09 09 09 53 65 74 |hWindow)|;....Set| |00002e70| 50 6f 72 74 28 66 57 68 | 69 63 68 57 69 6e 64 6f |Port(fWh|ichWindo| |00002e80| 77 29 3b 0d 09 09 45 4e | 44 20 45 4c 53 45 0d 09 |w);...EN|D ELSE..| |00002e90| 09 09 66 43 75 72 44 6f | 63 20 3a 3d 20 4e 49 4c |..fCurDo|c := NIL| |00002ea0| 3b 0d 0d 09 45 4e 44 3b | 0d 45 4e 44 3b 0d 0d 7b |;...END;|.END;..{| |00002eb0| 24 53 20 4d 61 69 6e 7d | 0d 7b 2d 2d 2d 2d 2d 2d |$S Main}|.{------| |00002ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2b 0d 7c |--------|-----+.|| |00002ee0| 09 41 64 6a 75 73 74 43 | 75 72 73 6f 72 09 09 09 |.AdjustC|ursor...| |00002ef0| 09 09 7c 0d 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..|.+---|--------| |00002f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002f10| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 50 52 4f 43 45 44 |--------|}.PROCED| |00002f20| 55 52 45 20 54 41 70 70 | 6c 69 63 61 74 69 6f 6e |URE TApp|lication| |00002f30| 2e 41 64 6a 75 73 74 43 | 75 72 73 6f 72 3b 09 7b |.AdjustC|ursor;.{| |00002f40| 20 63 75 72 73 6f 72 20 | 61 64 6a 75 73 74 20 72 | cursor |adjust r| |00002f50| 6f 75 74 69 6e 65 2c 20 | 73 68 6f 75 6c 64 20 73 |outine, |should s| |00002f60| 65 74 75 70 20 6d 6f 75 | 73 65 52 67 6e 20 7d 0d |etup mou|seRgn }.| |00002f70| 42 45 47 49 4e 0d 45 4e | 44 3b 0d 0d 7b 24 53 20 |BEGIN.EN|D;..{$S | |00002f80| 4d 61 69 6e 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Main}.{-|--------| |00002f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002fa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 44 6f |--------|--+.|.Do| |00002fb0| 4d 65 6e 75 43 6f 6d 6d | 61 6e 64 09 09 09 09 09 |MenuComm|and.....| |00002fc0| 7c 0d 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d ||.+-----|--------| |00002fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00002fe0| 2d 2d 2d 2d 2d 2d 7d 0d | 50 52 4f 43 45 44 55 52 |------}.|PROCEDUR| |00002ff0| 45 20 54 41 70 70 6c 69 | 63 61 74 69 6f 6e 2e 44 |E TAppli|cation.D| |00003000| 6f 4d 65 6e 75 43 6f 6d | 6d 61 6e 64 28 6d 65 6e |oMenuCom|mand(men| |00003010| 75 49 44 2c 6d 65 6e 75 | 49 74 65 6d 3a 20 69 6e |uID,menu|Item: in| |00003020| 74 65 67 65 72 29 3b 0d | 42 45 47 49 4e 0d 45 4e |teger);.|BEGIN.EN| |00003030| 44 3b 0d 0d 7b 24 53 20 | 4d 61 69 6e 7d 0d 7b 2d |D;..{$S |Main}.{-| |00003040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003060| 2d 2d 2b 0d 7c 09 44 6f | 53 75 73 70 65 6e 64 09 |--+.|.Do|Suspend.| |00003070| 09 09 09 09 09 7c 0d 2b | 2d 2d 2d 2d 2d 2d 2d 2d |.....|.+|--------| |00003080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 50 52 4f |--------|---}.PRO| |000030a0| 43 45 44 55 52 45 20 54 | 41 70 70 6c 69 63 61 74 |CEDURE T|Applicat| |000030b0| 69 6f 6e 2e 44 6f 53 75 | 73 70 65 6e 64 28 56 41 |ion.DoSu|spend(VA| |000030c0| 52 20 64 6f 43 6c 69 70 | 43 6f 6e 76 65 72 74 3a |R doClip|Convert:| |000030d0| 42 6f 6f 6c 65 61 6e 29 | 3b 0d 42 45 47 49 4e 0d |Boolean)|;.BEGIN.| |000030e0| 09 64 6f 43 6c 69 70 43 | 6f 6e 76 65 72 74 20 3a |.doClipC|onvert :| |000030f0| 3d 20 46 41 4c 53 45 3b | 0d 09 49 46 20 28 66 43 |= FALSE;|..IF (fC| |00003100| 75 72 44 6f 63 20 3c 3e | 20 4e 49 4c 29 20 54 48 |urDoc <>| NIL) TH| |00003110| 45 4e 0d 09 20 20 66 43 | 75 72 44 6f 63 2e 44 6f |EN.. fC|urDoc.Do| |00003120| 41 63 74 69 76 61 74 65 | 28 4e 4f 54 20 28 66 49 |Activate|(NOT (fI| |00003130| 6e 42 61 63 6b 67 72 6f | 75 6e 64 29 29 3b 0d 45 |nBackgro|und));.E| |00003140| 4e 44 3b 0d 0d 7b 24 53 | 20 4d 61 69 6e 7d 0d 7b |ND;..{$S| Main}.{| |00003150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003170| 2d 2d 2d 2b 0d 7c 09 44 | 6f 52 65 73 75 6d 65 09 |---+.|.D|oResume.| |00003180| 09 09 09 09 09 7c 0d 2b | 2d 2d 2d 2d 2d 2d 2d 2d |.....|.+|--------| |00003190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000031a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 50 52 4f |--------|---}.PRO| |000031b0| 43 45 44 55 52 45 20 54 | 41 70 70 6c 69 63 61 74 |CEDURE T|Applicat| |000031c0| 69 6f 6e 2e 44 6f 52 65 | 73 75 6d 65 28 56 41 52 |ion.DoRe|sume(VAR| |000031d0| 20 64 6f 43 6c 69 70 43 | 6f 6e 76 65 72 74 3a 42 | doClipC|onvert:B| |000031e0| 6f 6f 6c 65 61 6e 29 3b | 0d 42 45 47 49 4e 0d 09 |oolean);|.BEGIN..| |000031f0| 64 6f 43 6c 69 70 43 6f | 6e 76 65 72 74 20 3a 3d |doClipCo|nvert :=| |00003200| 20 46 41 4c 53 45 3b 0d | 09 49 46 20 28 66 43 75 | FALSE;.|.IF (fCu| |00003210| 72 44 6f 63 20 3c 3e 20 | 4e 49 4c 29 20 54 48 45 |rDoc <> |NIL) THE| |00003220| 4e 0d 09 20 20 66 43 75 | 72 44 6f 63 2e 44 6f 41 |N.. fCu|rDoc.DoA| |00003230| 63 74 69 76 61 74 65 28 | 4e 4f 54 28 66 49 6e 42 |ctivate(|NOT(fInB| |00003240| 61 63 6b 67 72 6f 75 6e | 64 29 29 3b 0d 45 4e 44 |ackgroun|d));.END| |00003250| 3b 0d 0d 7b 24 53 20 49 | 6e 69 74 69 61 6c 69 7a |;..{$S I|nitializ| |00003260| 65 7d 0d 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |e}.{----|--------| |00003270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003280| 2d 2d 2d 2d 2d 2d 2d 2b | 0d 7c 09 54 72 61 70 41 |-------+|.|.TrapA| |00003290| 76 61 69 6c 61 62 6c 65 | 09 09 09 09 09 7c 0d 2b |vailable|.....|.+| |000032a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000032b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000032c0| 2d 2d 2d 7d 0d 46 55 4e | 43 54 49 4f 4e 20 54 41 |---}.FUN|CTION TA| |000032d0| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 54 72 61 70 41 |pplicati|on.TrapA| |000032e0| 76 61 69 6c 61 62 6c 65 | 28 74 4e 75 6d 62 65 72 |vailable|(tNumber| |000032f0| 3a 69 6e 74 65 67 65 72 | 3b 74 54 79 70 65 3a 54 |:integer|;tType:T| |00003300| 72 61 70 54 79 70 65 29 | 3a 42 6f 6f 6c 65 61 6e |rapType)|:Boolean| |00003310| 3b 0d 42 45 47 49 4e 0d | 09 7b 20 53 65 65 20 69 |;.BEGIN.|.{ See i| |00003320| 66 20 74 68 65 20 74 72 | 61 70 20 65 78 69 73 74 |f the tr|ap exist| |00003330| 73 2e 20 4f 6e 20 36 34 | 4b 20 52 4f 4d 20 6d 61 |s. On 64|K ROM ma| |00003340| 63 68 69 6e 65 73 2c 20 | 74 54 79 70 65 20 77 69 |chines, |tType wi| |00003350| 6c 6c 20 62 65 20 69 67 | 6e 6f 72 65 64 2e 20 7d |ll be ig|nored. }| |00003360| 0d 09 54 72 61 70 41 76 | 61 69 6c 61 62 6c 65 20 |..TrapAv|ailable | |00003370| 3a 3d 20 4e 47 65 74 54 | 72 61 70 41 64 64 72 65 |:= NGetT|rapAddre| |00003380| 73 73 28 74 4e 75 6d 62 | 65 72 2c 20 74 54 79 70 |ss(tNumb|er, tTyp| |00003390| 65 29 20 3c 3e 0d 09 09 | 09 09 09 09 47 65 74 54 |e) <>...|....GetT| |000033a0| 72 61 70 41 64 64 72 65 | 73 73 28 5f 55 6e 69 6d |rapAddre|ss(_Unim| |000033b0| 70 6c 65 6d 65 6e 74 65 | 64 29 3b 0d 45 4e 44 3b |plemente|d);.END;| |000033c0| 0d 0d 7b 24 53 20 4d 61 | 69 6e 7d 0d 7b 2d 2d 2d |..{$S Ma|in}.{---| |000033d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000033e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000033f0| 2b 0d 7c 09 44 6f 63 4c | 69 73 74 09 09 09 09 09 |+.|.DocL|ist.....| |00003400| 09 09 7c 0d 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..|.+---|--------| |00003410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003420| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 46 55 4e 43 54 49 |--------|}.FUNCTI| |00003430| 4f 4e 20 54 41 70 70 6c | 69 63 61 74 69 6f 6e 2e |ON TAppl|ication.| |00003440| 44 6f 63 4c 69 73 74 3a | 54 44 6f 63 75 6d 65 6e |DocList:|TDocumen| |00003450| 74 4c 69 73 74 3b 0d 42 | 45 47 49 4e 0d 09 44 6f |tList;.B|EGIN..Do| |00003460| 63 4c 69 73 74 20 3a 3d | 20 66 44 6f 63 4c 69 73 |cList :=| fDocLis| |00003470| 74 3b 0d 45 4e 44 3b 0d | 0d 7b 24 53 20 49 6e 69 |t;.END;.|.{$S Ini| |00003480| 74 69 61 6c 69 7a 65 7d | 0d 7b 2d 2d 2d 2d 2d 2d |tialize}|.{------| |00003490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000034a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2b 0d 7c |--------|-----+.|| |000034b0| 09 53 74 61 63 6b 4e 65 | 65 64 65 64 09 09 09 09 |.StackNe|eded....| |000034c0| 09 09 7c 0d 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..|.+---|--------| |000034d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000034e0| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 46 55 4e 43 54 49 |--------|}.FUNCTI| |000034f0| 4f 4e 20 54 41 70 70 6c | 69 63 61 74 69 6f 6e 2e |ON TAppl|ication.| |00003500| 53 74 61 63 6b 4e 65 65 | 64 65 64 3a 20 4c 6f 6e |StackNee|ded: Lon| |00003510| 67 69 6e 74 3b 0d 42 45 | 47 49 4e 0d 09 53 74 61 |gint;.BE|GIN..Sta| |00003520| 63 6b 4e 65 65 64 65 64 | 20 3a 3d 20 30 3b 0d 45 |ckNeeded| := 0;.E| |00003530| 4e 44 3b 0d 0d 7b 24 53 | 20 49 6e 69 74 69 61 6c |ND;..{$S| Initial| |00003540| 69 7a 65 7d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ize}.{--|--------| |00003550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 0d 7c 09 48 65 61 |--------|-+.|.Hea| |00003570| 70 4e 65 65 64 65 64 09 | 09 09 09 09 09 7c 0d 2b |pNeeded.|.....|.+| |00003580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |000035a0| 2d 2d 2d 7d 0d 46 55 4e | 43 54 49 4f 4e 20 54 41 |---}.FUN|CTION TA| |000035b0| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 48 65 61 70 4e |pplicati|on.HeapN| |000035c0| 65 65 64 65 64 3a 20 4c | 6f 6e 67 69 6e 74 3b 0d |eeded: L|ongint;.| |000035d0| 42 45 47 49 4e 0d 09 48 | 65 61 70 4e 65 65 64 65 |BEGIN..H|eapNeede| |000035e0| 64 20 3a 3d 20 30 3b 0d | 45 4e 44 3b 0d 0d 7b 24 |d := 0;.|END;..{$| |000035f0| 53 20 4d 61 69 6e 7d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |S Main}.|{-------| |00003600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2b 0d 7c 09 |--------|----+.|.| |00003620| 53 6c 65 65 70 56 61 6c | 09 09 09 09 09 09 7c 0d |SleepVal|......|.| |00003630| 2b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+-------|--------| |00003640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------| |00003650| 2d 2d 2d 2d 7d 0d 46 55 | 4e 43 54 49 4f 4e 20 54 |----}.FU|NCTION T| |00003660| 41 70 70 6c 69 63 61 74 | 69 6f 6e 2e 53 6c 65 65 |Applicat|ion.Slee| |00003670| 70 56 61 6c 3a 20 4c 6f | 6e 67 49 6e 74 3b 0d 42 |pVal: Lo|ngInt;.B| |00003680| 45 47 49 4e 0d 09 53 6c | 65 65 70 56 61 6c 20 3a |EGIN..Sl|eepVal :| |00003690| 3d 20 30 3b 0d 45 4e 44 | 3b 00 00 00 00 00 00 00 |= 0;.END|;.......| |000036a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000036b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000036c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000036d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000036e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |000036f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00003700| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 1e |.......L|...L....| |00003710| 00 00 e7 a3 0b 55 4f 62 | 6a 65 63 74 2e 70 2e 6f |.....UOb|ject.p.o| |00003720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00003730| 13 55 41 70 70 6c 69 63 | 61 74 69 6f 6e 2e 69 6e |.UApplic|ation.in| |00003740| 63 31 2e 70 02 00 00 00 | 54 45 58 54 4d 50 53 20 |c1.p....|TEXTMPS | |00003750| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 3c 01 20 |..TEXTMP|S ...<. | |00003760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00003770| 00 00 a1 4b 04 00 00 00 | 36 19 00 00 01 6a 00 00 |...K....|6....j..| |00003780| 00 00 00 00 00 00 00 00 | 00 00 00 52 25 00 00 00 |........|...R%...| |00003790| e8 c0 16 77 6f 72 6b 69 | 6e 67 20 63 61 73 73 65 |...worki|ng casse| |000037a0| 74 74 65 20 6c 61 62 65 | 6c 00 00 00 00 00 00 00 |tte labe|l.......| |000037b0| 00 00 00 00 00 6b 25 00 | 00 00 e8 ff 0f 4e 6f 6e |.....k%.|.....Non| |000037c0| 2d 44 65 62 75 67 20 46 | 69 6c 65 73 00 00 00 00 |-Debug F|iles....| |000037d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 8e |........|........| |000037e0| 25 00 00 00 e9 d4 00 00 | 00 00 00 00 00 00 00 00 |%.......|........| |000037f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| |00003800| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 65 3a 4d |...H..Mo|naco.e:M| |00003810| 50 57 20 33 2e 30 3a 4d | 50 57 2e 45 72 72 6f 72 |PW 3.0:M|PW.Error| |00003820| 73 00 01 b3 00 44 00 06 | 00 04 00 2a 00 03 01 d8 |s....D..|...*....| |00003830| 02 79 00 2a 00 03 01 9d | 02 21 a1 4b 04 00 00 00 |.y.*....|.!.K....| |00003840| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........| |00003850| 00 00 01 4c 00 00 00 4c | 00 00 00 1e 00 25 27 dc |...L...L|.....%'.| |00003860| 09 30 00 00 00 1c 00 1e | ff ff 00 00 00 00 00 00 |.0......|........| |00003870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........| +--------+-------------------------+-------------------------+--------+--------+